/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / DATABASE / FAMILY2 / !Family_!RunImSrc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 17 54 61 73 6b | 24 20 20 20 20 3d 20 22 |....Task|$    = "|
|00000010| 46 61 6d 69 6c 79 22 0d | 00 02 23 50 75 72 70 6f |Family".|..#Purpo|
|00000020| 73 65 24 20 3d 20 22 46 | 61 6d 69 6c 79 20 74 72 |se$ = "F|amily tr|
|00000030| 65 65 20 65 64 69 74 6f | 72 22 0d 00 03 22 41 75 |ee edito|r"..."Au|
|00000040| 74 68 6f 72 24 20 20 3d | 20 22 a9 20 31 39 39 34 |thor$  =| ". 1994|
|00000050| 20 44 65 6e 69 73 20 48 | 6f 77 65 22 0d 00 04 23 | Denis H|owe"...#|
|00000060| 56 65 72 73 69 6f 6e 24 | 20 3d 20 22 32 2e 31 30 |Version$| = "2.10|
|00000070| 20 28 32 35 20 4f 63 74 | 20 31 39 39 34 29 22 0d | (25 Oct| 1994)".|
|00000080| 00 05 04 0d 00 06 3f f4 | 20 54 68 69 73 20 70 72 |......?.| This pr|
|00000090| 6f 67 72 61 6d 20 69 73 | 20 43 6f 70 79 72 69 67 |ogram is| Copyrig|
|000000a0| 68 74 20 31 39 39 33 2c | 20 31 39 39 34 20 44 65 |ht 1993,| 1994 De|
|000000b0| 6e 69 73 20 48 6f 77 65 | 2e 20 20 59 6f 75 20 6d |nis Howe|.  You m|
|000000c0| 61 79 0d 00 07 3c f4 20 | 64 69 73 74 72 69 62 75 |ay...<. |distribu|
|000000d0| 74 65 20 76 65 72 62 61 | 74 69 6d 20 6f 72 20 6d |te verba|tim or m|
|000000e0| 6f 64 69 66 69 65 64 20 | 63 6f 70 69 65 73 20 6f |odified |copies o|
|000000f0| 66 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d 0d 00 |f this p|rogram..|
|00000100| 08 3d f4 20 70 72 6f 76 | 69 64 65 64 20 65 61 63 |.=. prov|ided eac|
|00000110| 68 20 73 75 63 68 20 63 | 6f 70 79 20 69 73 20 64 |h such c|opy is d|
|00000120| 69 73 74 72 69 62 75 74 | 65 64 20 77 69 74 68 20 |istribut|ed with |
|00000130| 61 20 63 6f 70 79 72 69 | 67 68 74 0d 00 09 3c f4 |a copyri|ght...<.|
|00000140| 20 6e 6f 74 69 63 65 20 | 61 6e 64 20 64 69 73 74 | notice |and dist|
|00000150| 72 69 62 75 74 69 6f 6e | 20 63 6f 6e 64 69 74 69 |ribution| conditi|
|00000160| 6f 6e 73 20 69 64 65 6e | 74 69 63 61 6c 20 74 6f |ons iden|tical to|
|00000170| 20 74 68 65 73 65 2e 0d | 00 0a 04 0d 00 0b 37 f4 | these..|......7.|
|00000180| 20 50 6c 65 61 73 65 20 | 73 65 6e 64 20 6d 65 20 | Please |send me |
|00000190| 61 20 63 6f 70 79 20 6f | 66 20 61 6e 79 20 63 68 |a copy o|f any ch|
|000001a0| 61 6e 67 65 73 20 79 6f | 75 20 6d 61 6b 65 20 61 |anges yo|u make a|
|000001b0| 6e 64 0d 00 0c 3a f4 20 | 75 70 64 61 74 65 20 74 |nd...:. |update t|
|000001c0| 68 65 20 6d 6f 64 69 66 | 69 63 61 74 69 6f 6e 20 |he modif|ication |
|000001d0| 68 69 73 74 6f 72 79 20 | 61 74 20 74 68 65 20 65 |history |at the e|
|000001e0| 6e 64 20 6f 66 20 21 48 | 65 6c 70 2e 0d 00 0d 04 |nd of !H|elp.....|
|000001f0| 0d 00 0e 36 f4 20 44 65 | 6e 69 73 20 48 6f 77 65 |...6. De|nis Howe|
|00000200| 20 3c 64 62 68 40 64 6f | 63 2e 69 63 2e 61 63 2e | <dbh@do|c.ic.ac.|
|00000210| 75 6b 3e 20 2b 34 34 20 | 28 31 38 31 29 20 34 35 |uk> +44 |(181) 45|
|00000220| 30 20 39 34 34 38 0d 00 | 0f 04 0d 00 10 39 f4 20 |0 9448..|.....9. |
|00000230| 49 6e 69 74 69 61 6c 69 | 73 65 20 73 6f 6d 65 20 |Initiali|se some |
|00000240| 76 61 72 69 61 62 6c 65 | 73 20 66 6f 72 20 50 52 |variable|s for PR|
|00000250| 4f 43 45 72 72 6f 72 20 | 26 20 50 52 4f 43 51 75 |OCError |& PROCQu|
|00000260| 69 74 2e 0d 00 11 30 62 | 25 3d e0 3a 54 61 73 6b |it....0b|%=.:Task|
|00000270| 25 3d 30 3a 4d 6f 64 69 | 66 69 65 64 25 3d a3 3a |%=0:Modi|fied%=.:|
|00000280| 46 6f 6e 74 25 3d 30 3a | 45 78 74 45 64 4a 6f 62 |Font%=0:|ExtEdJob|
|00000290| 25 3d 30 0d 00 12 11 ee | 20 85 20 f2 45 72 72 6f |%=0.....| . .Erro|
|000002a0| 72 3a c8 98 0d 00 13 04 | 0d 00 14 48 f4 20 3d 3d |r:......|...H. ==|
|000002b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002c0| 20 55 73 65 72 2d 63 75 | 73 74 6f 6d 69 73 61 62 | User-cu|stomisab|
|000002d0| 6c 65 20 76 61 72 69 61 | 62 6c 65 73 20 3d 3d 3d |le varia|bles ===|
|000002e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002f0| 0d 00 15 04 0d 00 16 31 | f4 20 4d 61 78 69 6d 75 |.......1|. Maximu|
|00000300| 6d 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 20 74 6f |m comple|tions to|
|00000310| 20 73 68 6f 77 20 69 6e | 20 43 6f 6d 70 20 77 69 | show in| Comp wi|
|00000320| 6e 64 6f 77 2e 0d 00 17 | 0f 4d 61 78 43 6f 6d 70 |ndow....|.MaxComp|
|00000330| 25 3d 32 35 0d 00 18 04 | 0d 00 19 26 f4 20 4d 61 |%=25....|...&. Ma|
|00000340| 78 69 6d 75 6d 20 73 70 | 6f 75 73 65 73 20 69 6e |ximum sp|ouses in|
|00000350| 20 64 69 76 6f 72 63 65 | 20 6d 65 6e 75 2e 0d 00 | divorce| menu...|
|00000360| 1a 11 4d 61 78 53 70 6f | 75 73 65 25 3d 31 30 0d |..MaxSpo|use%=10.|
|00000370| 00 1b 04 0d 00 1c 26 f4 | 20 4d 61 78 69 6d 75 6d |......&.| Maximum|
|00000380| 20 64 65 70 74 68 20 6f | 66 20 74 72 65 65 20 64 | depth o|f tree d|
|00000390| 69 73 70 6c 61 79 65 64 | 2e 0d 00 1d 0e 4d 61 78 |isplayed|.....Max|
|000003a0| 47 65 6e 25 3d 32 30 0d | 00 1e 04 0d 00 1f 25 f4 |Gen%=20.|......%.|
|000003b0| 20 4d 61 78 69 6d 75 6d | 20 47 45 44 43 4f 4d 20 | Maximum| GEDCOM |
|000003c0| 73 74 72 75 63 74 75 72 | 65 20 64 65 70 74 68 2e |structur|e depth.|
|000003d0| 0d 00 20 10 4d 61 78 4c | 65 76 65 6c 25 3d 32 30 |.. .MaxL|evel%=20|
|000003e0| 0d 00 21 04 0d 00 22 24 | f2 4d 54 4c 6f 61 64 28 |..!..."$|.MTLoad(|
|000003f0| 22 3c 46 61 6d 69 6c 79 | 24 44 69 72 3e 2e 4d 65 |"<Family|$Dir>.Me|
|00000400| 73 73 61 67 65 73 22 29 | 0d 00 23 04 0d 00 24 49 |ssages")|..#...$I|
|00000410| f4 20 41 6c 6c 6f 63 61 | 74 65 20 74 68 65 20 68 |. Alloca|te the h|
|00000420| 65 61 70 20 62 79 20 6c | 6f 77 65 72 69 6e 67 20 |eap by l|owering |
|00000430| 48 49 4d 45 4d 20 62 65 | 6c 6f 77 20 74 68 65 20 |HIMEM be|low the |
|00000440| 57 69 6d 70 53 6c 6f 74 | 2c 20 6d 61 6b 69 6e 67 |WimpSlot|, making|
|00000450| 20 73 75 72 65 0d 00 25 | 49 f4 20 74 68 65 72 65 | sure..%|I. there|
|00000460| 20 61 72 65 20 56 61 72 | 53 69 7a 65 25 20 62 79 | are Var|Size% by|
|00000470| 74 65 73 20 6c 65 66 74 | 20 61 62 6f 76 65 20 45 |tes left| above E|
|00000480| 4e 44 20 66 6f 72 20 66 | 75 72 74 68 65 72 20 76 |ND for f|urther v|
|00000490| 61 72 69 61 62 6c 65 73 | 2c 20 44 49 4d 73 0d 00 |ariables|, DIMs..|
|000004a0| 26 4a f4 20 61 6e 64 20 | 73 74 72 69 6e 67 73 2e |&J. and |strings.|
|000004b0| 20 20 54 68 69 73 20 63 | 61 6e 6e 6f 74 20 62 65 |  This c|annot be|
|000004c0| 20 64 6f 6e 65 20 69 6e | 20 61 20 50 52 4f 43 2e | done in| a PROC.|
|000004d0| 20 20 53 65 74 20 74 68 | 65 20 68 65 61 70 20 6c |  Set th|e heap l|
|000004e0| 6f 77 2d 77 61 74 65 72 | 0d 00 27 24 f4 20 6d 61 |ow-water|..'$. ma|
|000004f0| 72 6b 20 74 6f 20 61 20 | 25 20 6f 66 20 74 68 65 |rk to a |% of the|
|00000500| 20 74 6f 74 61 6c 20 73 | 69 7a 65 2e 0d 00 28 04 | total s|ize...(.|
|00000510| 0d 00 29 2e 56 61 72 53 | 69 7a 65 25 3d 34 30 30 |..).VarS|ize%=400|
|00000520| 30 30 3a 48 65 61 70 25 | 3d e0 2b 56 61 72 53 69 |00:Heap%|=.+VarSi|
|00000530| 7a 65 25 3a 48 65 61 70 | 45 6e 64 25 3d 93 0d 00 |ze%:Heap|End%=...|
|00000540| 2a 23 e7 20 48 65 61 70 | 25 3e 3d 48 65 61 70 45 |*#. Heap|%>=HeapE|
|00000550| 6e 64 25 20 85 20 31 2c | a4 4d 54 28 22 4e 52 22 |nd% . 1,|.MT("NR"|
|00000560| 29 0d 00 2b 34 d3 3d 48 | 65 61 70 25 3a 48 65 61 |)..+4.=H|eap%:Hea|
|00000570| 70 25 3d 93 20 20 20 20 | 20 20 20 3a f4 20 52 65 |p%=.    |   :. Re|
|00000580| 61 64 20 62 61 63 6b 20 | 61 63 74 75 61 6c 20 76 |ad back |actual v|
|00000590| 61 6c 75 65 2e 0d 00 2c | 22 48 65 61 70 53 69 7a |alue...,|"HeapSiz|
|000005a0| 65 25 3d 48 65 61 70 45 | 6e 64 25 2d 48 65 61 70 |e%=HeapE|nd%-Heap|
|000005b0| 25 20 20 20 20 20 20 0d | 00 2d 37 48 65 61 70 4c |%      .|.-7HeapL|
|000005c0| 6f 77 25 3d 30 2e 30 35 | 2a 48 65 61 70 53 69 7a |ow%=0.05|*HeapSiz|
|000005d0| 65 25 20 20 20 20 20 20 | 20 3a f4 20 57 61 72 6e |e%      | :. Warn|
|000005e0| 20 69 66 20 6c 65 73 73 | 20 66 72 65 65 2e 0d 00 | if less| free...|
|000005f0| 2e 04 0d 00 2f 39 f2 49 | 6e 69 74 20 20 20 20 20 |..../9.I|nit     |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000610| 20 3a f4 20 4f 6e 65 2d | 6f 66 66 20 69 6e 69 74 | :. One-|off init|
|00000620| 69 61 6c 69 73 61 74 69 | 6f 6e 2e 0d 00 30 2f f2 |ialisati|on...0/.|
|00000630| 43 72 4d 65 6e 75 20 20 | 20 20 20 20 20 20 20 20 |CrMenu  |        |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 43 72 65 |        |  :. Cre|
|00000650| 61 74 65 20 6d 65 6e 75 | 73 2e 0d 00 31 3a f2 52 |ate menu|s...1:.R|
|00000660| 65 73 65 74 20 20 20 20 | 20 20 20 20 20 20 20 20 |eset    |        |
|00000670| 20 20 20 20 20 20 20 20 | 20 3a f4 20 52 65 73 65 |        | :. Rese|
|00000680| 74 20 68 65 61 70 20 61 | 6e 64 20 64 61 74 61 62 |t heap a|nd datab|
|00000690| 61 73 65 2e 0d 00 32 3a | f2 41 72 67 73 20 20 20 |ase...2:|.Args   |
|000006a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006b0| 20 20 20 3a f4 20 43 68 | 65 63 6b 20 66 6f 72 20 |   :. Ch|eck for |
|000006c0| 63 6d 64 20 6c 69 6e 65 | 20 61 72 67 73 2e 0d 00 |cmd line| args...|
|000006d0| 33 04 0d 00 34 48 f4 20 | 3d 3d 3d 3d 3d 3d 3d 3d |3...4H. |========|
|000006e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006f0| 3d 3d 20 4d 61 69 6e 20 | 6c 6f 6f 70 20 3d 3d 3d |== Main |loop ===|
|00000700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000710| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 00 35 04 0d 00 |========|==..5...|
|00000720| 36 37 ee 20 85 20 f2 45 | 72 72 6f 72 20 20 20 20 |67. . .E|rror    |
|00000730| 20 20 20 20 20 20 20 20 | 3a f4 20 46 61 6c 6c 73 |        |:. Falls|
|00000740| 20 62 61 63 6b 20 69 6e | 74 6f 20 70 6f 6c 6c 20 | back in|to poll |
|00000750| 6c 6f 6f 70 2e 0d 00 37 | 08 c8 95 20 b9 0d 00 38 |loop...7|... ...8|
|00000760| 10 20 20 f2 43 68 65 63 | 6b 46 72 65 65 0d 00 39 |.  .Chec|kFree..9|
|00000770| 0f 20 20 f2 4d 6f 64 69 | 66 69 65 64 0d 00 3a 2f |.  .Modi|fied..:/|
|00000780| 20 20 e7 20 46 6f 72 63 | 65 25 20 f2 46 6f 72 63 |  . Forc|e% .Forc|
|00000790| 65 20 20 20 20 20 20 20 | 20 20 3a f4 20 55 70 64 |e       |  :. Upd|
|000007a0| 61 74 65 20 64 69 73 70 | 6c 61 79 0d 00 3b 1c 20 |ate disp|lay..;. |
|000007b0| 20 c8 99 20 50 6f 6c 6c | 25 2c 26 31 38 33 31 2c | .. Poll|%,&1831,|
|000007c0| 62 25 20 b8 20 52 25 0d | 00 3c 0d 20 20 c8 8e 20 |b% . R%.|.<.  .. |
|000007d0| 52 25 20 ca 0d 00 3d 11 | 20 20 c9 20 31 3a f2 52 |R% ...=.|  . 1:.R|
|000007e0| 65 64 72 61 77 0d 00 3e | 22 20 20 c9 20 32 3a c8 |edraw..>|"  . 2:.|
|000007f0| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00000800| 6f 77 22 2c 2c 62 25 0d | 00 3f 23 20 20 c9 20 33 |ow",,b%.|.?#  . 3|
|00000810| 3a c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |:.. "Wim|p_CloseW|
|00000820| 69 6e 64 6f 77 22 2c 2c | 62 25 0d 00 40 2e 20 20 |indow",,|b%..@.  |
|00000830| 20 20 e7 20 21 62 25 3d | 4d 61 69 6e 57 48 25 20 |  . !b%=|MainWH% |
|00000840| f2 43 6c 6f 73 65 28 4e | 6f 74 65 57 48 25 29 3a |.Close(N|oteWH%):|
|00000850| f2 4f 70 65 6e 44 69 72 | 0d 00 41 13 20 20 c9 20 |.OpenDir|..A.  . |
|00000860| 37 3a f2 44 72 61 67 44 | 6f 6e 65 0d 00 42 2d 20 |7:.DragD|one..B- |
|00000870| 20 c9 20 36 3a f2 42 75 | 74 74 6f 6e 73 28 21 62 | . 6:.Bu|ttons(!b|
|00000880| 25 2c 62 25 21 34 2c 62 | 25 21 38 2c 62 25 21 31 |%,b%!4,b|%!8,b%!1|
|00000890| 32 2c 62 25 21 31 36 29 | 0d 00 43 1e 20 20 c9 20 |2,b%!16)|..C.  . |
|000008a0| 38 3a f2 4b 65 79 28 21 | 62 25 2c 62 25 21 34 2c |8:.Key(!|b%,b%!4,|
|000008b0| 62 25 21 32 34 29 0d 00 | 44 2a 20 20 c9 20 39 3a |b%!24)..|D*  . 9:|
|000008c0| f2 4d 65 6e 75 43 6c 69 | 63 6b 28 62 25 21 30 2c |.MenuCli|ck(b%!0,|
|000008d0| 62 25 21 34 2c 62 25 21 | 38 2c 62 25 21 31 32 29 |b%!4,b%!|8,b%!12)|
|000008e0| 0d 00 45 2c 20 20 c9 20 | 31 37 2c 31 38 3a f2 52 |..E,  . |17,18:.R|
|000008f0| 65 63 65 69 76 65 28 62 | 25 21 30 2c 62 25 21 34 |eceive(b|%!0,b%!4|
|00000900| 2c 62 25 21 38 2c 62 25 | 21 31 36 29 0d 00 46 23 |,b%!8,b%|!16)..F#|
|00000910| 20 20 c9 20 31 39 3a f2 | 52 63 76 41 63 6b 28 62 |  . 19:.|RcvAck(b|
|00000920| 25 21 30 2c 62 25 21 34 | 2c 62 25 21 31 36 29 0d |%!0,b%!4|,b%!16).|
|00000930| 00 47 07 20 20 cb 0d 00 | 48 05 ce 0d 00 49 04 0d |.G.  ...|H....I..|
|00000940| 00 4a 48 f4 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.JH. ===|========|
|00000950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 20 47 45 44 43 4f |========|== GEDCO|
|00000960| 4d 20 61 63 63 65 73 73 | 20 66 75 6e 63 74 69 6f |M access| functio|
|00000970| 6e 73 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ns =====|========|
|00000980| 3d 3d 3d 3d 3d 3d 3d 0d | 00 4b 04 0d 00 4c 2f f4 |=======.|.K...L/.|
|00000990| 20 43 72 65 61 74 65 20 | 61 20 6e 65 77 20 6f 62 | Create |a new ob|
|000009a0| 6a 65 63 74 20 77 69 74 | 68 20 54 61 67 25 20 61 |ject wit|h Tag% a|
|000009b0| 6e 64 20 56 61 6c 75 65 | 25 2e 0d 00 4d 04 0d 00 |nd Value|%...M...|
|000009c0| 4e 1a dd 20 a4 4f 62 6a | 65 63 74 28 54 61 67 25 |N.. .Obj|ect(Tag%|
|000009d0| 2c 56 61 6c 75 65 25 29 | 0d 00 4f 08 ea 20 4f 25 |,Value%)|..O.. O%|
|000009e0| 0d 00 50 16 4f 25 3d a4 | 41 6c 6c 6f 63 28 4f 62 |..P.O%=.|Alloc(Ob|
|000009f0| 53 69 7a 65 25 29 0d 00 | 51 3d 4f 25 21 4f 62 54 |Size%)..|Q=O%!ObT|
|00000a00| 61 67 25 3d 54 61 67 25 | 3a 4f 25 21 4f 62 56 61 |ag%=Tag%|:O%!ObVa|
|00000a10| 6c 25 3d 56 61 6c 75 65 | 25 3a 4f 25 21 4f 62 53 |l%=Value|%:O%!ObS|
|00000a20| 75 62 73 25 3d 30 3a 4f | 25 21 4f 62 4e 65 78 74 |ubs%=0:O|%!ObNext|
|00000a30| 25 3d 30 0d 00 52 07 3d | 4f 25 0d 00 53 04 0d 00 |%=0..R.=|O%..S...|
|00000a40| 54 2b f4 20 43 6f 6e 76 | 65 72 74 20 6e 75 6c 6c |T+. Conv|ert null|
|00000a50| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 65 6d 70 74 | pointer| to empt|
|00000a60| 79 20 73 74 72 69 6e 67 | 2e 0d 00 55 04 0d 00 56 |y string|...U...V|
|00000a70| 0f dd 20 a4 4e 75 6c 6c | 28 50 25 29 0d 00 57 0e |.. .Null|(P%)..W.|
|00000a80| e7 20 50 25 20 8c 3d 24 | 50 25 0d 00 58 07 3d 22 |. P% .=$|P%..X.="|
|00000a90| 22 0d 00 59 04 0d 00 5a | 33 f4 20 47 65 74 20 74 |"..Y...Z|3. Get t|
|00000aa0| 68 65 20 73 74 72 69 6e | 67 20 76 61 6c 75 65 20 |he strin|g value |
|00000ab0| 6f 66 20 4f 25 27 73 20 | 66 69 72 73 74 20 73 75 |of O%'s |first su|
|00000ac0| 62 2d 6f 62 6a 65 63 74 | 0d 00 5b 30 f4 20 77 69 |b-object|..[0. wi|
|00000ad0| 74 68 20 54 61 67 25 20 | 6f 72 20 22 22 20 69 66 |th Tag% |or "" if|
|00000ae0| 20 74 68 65 72 65 20 69 | 73 20 6e 6f 20 73 75 63 | there i|s no suc|
|00000af0| 68 20 76 61 6c 75 65 2e | 0d 00 5c 04 0d 00 5d 2e |h value.|..\...].|
|00000b00| dd 20 a4 47 65 74 53 74 | 72 28 4f 25 2c 54 61 67 |. .GetSt|r(O%,Tag|
|00000b10| 25 29 3d a4 4e 75 6c 6c | 28 a4 47 65 74 56 61 6c |%)=.Null|(.GetVal|
|00000b20| 28 4f 25 2c 54 61 67 25 | 29 29 0d 00 5e 04 0d 00 |(O%,Tag%|))..^...|
|00000b30| 5f 36 f4 20 52 65 74 75 | 72 6e 20 74 68 65 20 76 |_6. Retu|rn the v|
|00000b40| 61 6c 75 65 20 6f 66 20 | 6f 62 6a 65 63 74 20 4f |alue of |object O|
|00000b50| 25 27 73 20 66 69 72 73 | 74 20 73 75 62 2d 6f 62 |%'s firs|t sub-ob|
|00000b60| 6a 65 63 74 0d 00 60 30 | f4 20 77 69 74 68 20 54 |ject..`0|. with T|
|00000b70| 61 67 25 20 6f 72 20 30 | 20 69 66 20 74 68 65 72 |ag% or 0| if ther|
|00000b80| 65 20 69 73 20 6e 6f 20 | 73 75 63 68 20 6f 62 6a |e is no |such obj|
|00000b90| 65 63 74 2e 0d 00 61 04 | 0d 00 62 16 dd 20 a4 47 |ect...a.|..b.. .G|
|00000ba0| 65 74 56 61 6c 28 4f 25 | 2c 54 61 67 25 29 0d 00 |etVal(O%|,Tag%)..|
|00000bb0| 63 08 ea 20 53 25 0d 00 | 64 2f e7 20 4f 25 20 53 |c.. S%..|d/. O% S|
|00000bc0| 25 3d 30 3a e7 20 a4 47 | 65 74 53 75 62 28 4f 25 |%=0:. .G|etSub(O%|
|00000bd0| 2c 54 61 67 25 2c 53 25 | 29 20 8c 3d 53 25 21 4f |,Tag%,S%|) .=S%!O|
|00000be0| 62 56 61 6c 25 0d 00 65 | 06 3d 30 0d 00 66 04 0d |bVal%..e|.=0..f..|
|00000bf0| 00 67 2a f4 20 49 66 20 | 53 25 3d 30 20 72 65 74 |.g*. If |S%=0 ret|
|00000c00| 75 72 6e 20 4f 25 27 73 | 20 66 69 72 73 74 20 73 |urn O%'s| first s|
|00000c10| 75 62 2d 6f 62 6a 65 63 | 74 0d 00 68 29 f4 20 77 |ub-objec|t..h). w|
|00000c20| 69 74 68 20 54 61 67 25 | 20 65 6c 73 65 20 72 65 |ith Tag%| else re|
|00000c30| 74 75 72 6e 20 74 68 65 | 20 6e 65 78 74 20 6f 6e |turn the| next on|
|00000c40| 65 2e 0d 00 69 04 0d 00 | 6a 1b dd 20 a4 47 65 74 |e...i...|j.. .Get|
|00000c50| 53 75 62 28 4f 25 2c 54 | 61 67 25 2c f8 20 53 25 |Sub(O%,T|ag%,. S%|
|00000c60| 29 0d 00 6b 19 e7 20 4f | 25 3d 30 20 85 20 31 2c |)..k.. O|%=0 . 1,|
|00000c70| 22 46 4e 47 65 74 53 75 | 62 22 0d 00 6c 26 e7 20 |"FNGetSu|b"..l&. |
|00000c80| 53 25 20 53 25 3d 53 25 | 21 4f 62 4e 65 78 74 25 |S% S%=S%|!ObNext%|
|00000c90| 20 8b 20 53 25 3d 4f 25 | 21 4f 62 53 75 62 73 25 | . S%=O%|!ObSubs%|
|00000ca0| 0d 00 6d 09 c8 95 20 53 | 25 0d 00 6e 1b 20 20 e7 |..m... S|%..n.  .|
|00000cb0| 20 53 25 21 4f 62 54 61 | 67 25 3d 54 61 67 25 20 | S%!ObTa|g%=Tag% |
|00000cc0| 8c 3d 53 25 0d 00 6f 13 | 20 20 53 25 3d 53 25 21 |.=S%..o.|  S%=S%!|
|00000cd0| 4f 62 4e 65 78 74 25 0d | 00 70 05 ce 0d 00 71 07 |ObNext%.|.p....q.|
|00000ce0| 3d 53 25 0d 00 72 04 0d | 00 73 40 f4 20 45 6e 73 |=S%..r..|.s@. Ens|
|00000cf0| 75 72 65 20 74 68 61 74 | 20 4f 25 20 68 61 73 20 |ure that| O% has |
|00000d00| 61 20 73 75 62 2d 6f 62 | 6a 65 63 74 20 77 69 74 |a sub-ob|ject wit|
|00000d10| 68 20 54 61 67 25 20 61 | 6e 64 20 56 61 6c 24 20 |h Tag% a|nd Val$ |
|00000d20| 6f 72 20 6e 6f 6e 65 0d | 00 74 42 f4 20 69 66 20 |or none.|.tB. if |
|00000d30| 56 61 6c 24 3d 22 22 2e | 20 20 49 66 20 53 69 6e |Val$="".|  If Sin|
|00000d40| 67 6c 65 25 20 74 68 65 | 6e 20 6f 76 65 72 77 72 |gle% the|n overwr|
|00000d50| 69 74 65 20 61 6e 79 20 | 65 78 69 74 69 6e 67 20 |ite any |exiting |
|00000d60| 54 61 67 25 20 73 75 62 | 2d 0d 00 75 45 f4 20 6f |Tag% sub|-..uE. o|
|00000d70| 62 6a 65 63 74 20 6f 74 | 68 65 72 77 69 73 65 20 |bject ot|herwise |
|00000d80| 61 64 64 20 61 20 6e 65 | 77 20 6f 6e 65 2e 20 20 |add a ne|w one.  |
|00000d90| 44 65 61 6c 6c 6f 63 61 | 74 65 20 61 6e 79 20 70 |Dealloca|te any p|
|00000da0| 72 65 76 69 6f 75 73 20 | 76 61 6c 75 65 2e 0d 00 |revious |value...|
|00000db0| 76 04 0d 00 77 23 dd 20 | f2 53 65 74 53 74 72 28 |v...w#. |.SetStr(|
|00000dc0| 4f 25 2c 54 61 67 25 2c | 56 61 6c 24 2c 53 69 6e |O%,Tag%,|Val$,Sin|
|00000dd0| 67 6c 65 25 29 0d 00 78 | 10 ea 20 4f 24 2c 56 61 |gle%)..x|.. O$,Va|
|00000de0| 6c 25 2c 53 25 0d 00 79 | 1b e7 20 4f 25 3d 30 20 |l%,S%..y|.. O%=0 |
|00000df0| 85 20 31 2c 22 50 52 4f | 43 53 65 74 53 74 72 22 |. 1,"PRO|CSetStr"|
|00000e00| 0d 00 7a 20 e7 20 56 61 | 6c 24 3d 22 22 20 f2 44 |..z . Va|l$="" .D|
|00000e10| 65 6c 54 61 67 28 4f 25 | 2c 54 61 67 25 29 3a e1 |elTag(O%|,Tag%):.|
|00000e20| 0d 00 7b 08 53 25 3d 30 | 0d 00 7c 1a c8 95 20 a4 |..{.S%=0|..|... .|
|00000e30| 47 65 74 53 75 62 28 4f | 25 2c 54 61 67 25 2c 53 |GetSub(O|%,Tag%,S|
|00000e40| 25 29 0d 00 7d 1b 20 20 | e7 20 24 28 53 25 21 4f |%)..}.  |. $(S%!O|
|00000e50| 62 56 61 6c 25 29 3d 56 | 61 6c 24 20 e1 0d 00 7e |bVal%)=V|al$ ...~|
|00000e60| 11 20 20 e7 20 53 69 6e | 67 6c 65 25 20 8c 0d 00 |.  . Sin|gle% ...|
|00000e70| 7f 30 20 20 20 20 f2 46 | 72 65 65 28 53 25 21 4f |.0    .F|ree(S%!O|
|00000e80| 62 56 61 6c 25 29 3a 53 | 25 21 4f 62 56 61 6c 25 |bVal%):S|%!ObVal%|
|00000e90| 3d a4 53 74 72 69 6e 67 | 28 56 61 6c 24 29 0d 00 |=.String|(Val$)..|
|00000ea0| 80 13 20 20 20 20 4d 6f | 64 69 66 69 65 64 25 3d |..    Mo|dified%=|
|00000eb0| b9 0d 00 81 09 20 20 20 | 20 e1 0d 00 82 07 20 20 |.....   | .....  |
|00000ec0| cd 0d 00 83 05 ce 0d 00 | 84 2a 21 a4 54 61 69 6c |........|.*!.Tail|
|00000ed0| 28 4f 25 29 3d a4 4f 62 | 6a 65 63 74 28 54 61 67 |(O%)=.Ob|ject(Tag|
|00000ee0| 25 2c a4 53 74 72 69 6e | 67 28 56 61 6c 24 29 29 |%,.Strin|g(Val$))|
|00000ef0| 0d 00 85 0f 4d 6f 64 69 | 66 69 65 64 25 3d b9 0d |....Modi|fied%=..|
|00000f00| 00 86 05 e1 0d 00 87 04 | 0d 00 88 3d f4 20 45 6e |........|...=. En|
|00000f10| 73 75 72 65 20 74 68 61 | 74 20 4f 25 20 68 61 73 |sure tha|t O% has|
|00000f20| 20 61 20 73 75 62 2d 6f | 62 6a 65 63 74 20 77 69 | a sub-o|bject wi|
|00000f30| 74 68 20 54 61 67 25 20 | 61 6e 64 20 56 61 6c 25 |th Tag% |and Val%|
|00000f40| 2e 20 20 49 66 0d 00 89 | 42 f4 20 53 69 6e 67 6c |.  If...|B. Singl|
|00000f50| 65 25 20 74 68 65 6e 20 | 6f 76 65 72 77 72 69 74 |e% then |overwrit|
|00000f60| 65 20 61 6e 79 20 65 78 | 69 73 74 69 6e 67 20 54 |e any ex|isting T|
|00000f70| 61 67 25 20 73 75 62 2d | 6f 62 6a 65 63 74 20 65 |ag% sub-|object e|
|00000f80| 6c 73 65 20 61 64 64 0d | 00 8a 41 f4 20 61 20 6e |lse add.|..A. a n|
|00000f90| 65 77 20 6f 6e 65 2e 20 | 20 44 6f 6e 27 74 20 64 |ew one. | Don't d|
|00000fa0| 65 61 6c 6c 6f 63 61 74 | 65 20 72 65 66 65 72 65 |eallocat|e refere|
|00000fb0| 6e 64 20 6f 66 20 61 6e | 79 20 70 72 65 76 69 6f |nd of an|y previo|
|00000fc0| 75 73 20 76 61 6c 75 65 | 0d 00 8b 23 f4 20 28 77 |us value|...#. (w|
|00000fd0| 68 69 63 68 20 6d 61 79 | 20 6e 6f 74 20 62 65 20 |hich may| not be |
|00000fe0| 61 20 70 6f 69 6e 74 65 | 72 29 2e 0d 00 8c 04 0d |a pointe|r)......|
|00000ff0| 00 8d 23 dd 20 f2 53 65 | 74 53 75 62 28 4f 25 2c |..#. .Se|tSub(O%,|
|00001000| 54 61 67 25 2c 56 61 6c | 25 2c 53 69 6e 67 6c 65 |Tag%,Val|%,Single|
|00001010| 25 29 0d 00 8e 08 ea 20 | 53 25 0d 00 8f 1b e7 20 |%)..... |S%..... |
|00001020| 4f 25 3d 30 20 85 20 31 | 2c 22 50 52 4f 43 53 65 |O%=0 . 1|,"PROCSe|
|00001030| 74 53 75 62 22 0d 00 90 | 08 53 25 3d 30 0d 00 91 |tSub"...|.S%=0...|
|00001040| 1a c8 95 20 a4 47 65 74 | 53 75 62 28 4f 25 2c 54 |... .Get|Sub(O%,T|
|00001050| 61 67 25 2c 53 25 29 0d | 00 92 18 20 20 e7 20 53 |ag%,S%).|...  . S|
|00001060| 25 21 4f 62 56 61 6c 25 | 3d 56 61 6c 25 20 e1 0d |%!ObVal%|=Val% ..|
|00001070| 00 93 11 20 20 e7 20 53 | 69 6e 67 6c 65 25 20 8c |...  . S|ingle% .|
|00001080| 0d 00 94 22 20 20 20 20 | 53 25 21 4f 62 56 61 6c |..."    |S%!ObVal|
|00001090| 25 3d 56 61 6c 25 3a 4d | 6f 64 69 66 69 65 64 25 |%=Val%:M|odified%|
|000010a0| 3d b9 0d 00 95 09 20 20 | 20 20 e1 0d 00 96 07 20 |=.....  |  ..... |
|000010b0| 20 cd 0d 00 97 05 ce 0d | 00 98 21 21 a4 54 61 69 | .......|..!!.Tai|
|000010c0| 6c 28 4f 25 29 3d a4 4f | 62 6a 65 63 74 28 54 61 |l(O%)=.O|bject(Ta|
|000010d0| 67 25 2c 56 61 6c 25 29 | 0d 00 99 0f 4d 6f 64 69 |g%,Val%)|....Modi|
|000010e0| 66 69 65 64 25 3d b9 0d | 00 9a 05 e1 0d 00 9b 04 |fied%=..|........|
|000010f0| 0d 00 9c 45 f4 20 52 65 | 74 75 72 6e 20 74 68 65 |...E. Re|turn the|
|00001100| 20 61 64 64 72 65 73 73 | 20 6f 66 20 74 68 65 20 | address| of the |
|00001110| 6c 61 73 74 20 4f 62 4e | 65 78 74 25 20 69 6e 20 |last ObN|ext% in |
|00001120| 50 25 27 73 20 73 75 62 | 2d 6f 62 6a 65 63 74 20 |P%'s sub|-object |
|00001130| 6c 69 73 74 2e 0d 00 9d | 04 0d 00 9e 0f dd 20 a4 |list....|...... .|
|00001140| 54 61 69 6c 28 50 25 29 | 0d 00 9f 29 50 25 3d 50 |Tail(P%)|...)P%=P|
|00001150| 25 2b 4f 62 53 75 62 73 | 25 3a c8 95 20 21 50 25 |%+ObSubs|%:.. !P%|
|00001160| 3a 50 25 3d 21 50 25 2b | 4f 62 4e 65 78 74 25 3a |:P%=!P%+|ObNext%:|
|00001170| ce 0d 00 a0 07 3d 50 25 | 0d 00 a1 04 0d 00 a2 48 |.....=P%|.......H|
|00001180| f4 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |. ======|========|
|00001190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 20 52 65 6d 6f 76 65 |========|= Remove|
|000011a0| 2c 20 44 65 6c 65 74 65 | 2c 20 4b 69 6c 6c 20 3d |, Delete|, Kill =|
|000011b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000011c0| 3d 3d 3d 3d 0d 00 a3 04 | 0d 00 a4 4a f4 20 52 65 |====....|...J. Re|
|000011d0| 6d 6f 76 65 20 3d 3e 20 | 75 6e 6c 69 6e 6b 20 74 |move => |unlink t|
|000011e0| 68 65 20 6f 62 6a 65 63 | 74 20 66 72 6f 6d 20 73 |he objec|t from s|
|000011f0| 6f 6d 65 20 67 69 76 65 | 6e 20 70 6c 61 63 65 20 |ome give|n place |
|00001200| 62 75 74 20 64 6f 6e 27 | 74 20 66 72 65 65 20 69 |but don'|t free i|
|00001210| 74 2e 0d 00 a5 3b f4 20 | 44 65 6c 65 74 65 20 3d |t....;. |Delete =|
|00001220| 3e 20 72 65 6d 6f 76 65 | 20 69 74 20 61 6e 64 20 |> remove| it and |
|00001230| 66 72 65 65 20 69 74 20 | 61 6e 64 20 69 74 73 20 |free it |and its |
|00001240| 73 74 72 69 6e 67 20 76 | 61 6c 75 65 2e 0d 00 a6 |string v|alue....|
|00001250| 40 f4 20 4b 69 6c 6c 20 | 20 20 3d 3e 20 64 65 6c |@. Kill |  => del|
|00001260| 65 74 65 20 69 74 20 61 | 6e 64 20 72 65 6d 6f 76 |ete it a|nd remov|
|00001270| 65 20 61 6e 79 20 63 72 | 6f 73 73 2d 72 65 66 65 |e any cr|oss-refe|
|00001280| 72 65 6e 63 65 73 20 74 | 6f 20 69 74 2e 0d 00 a7 |rences t|o it....|
|00001290| 04 0d 00 a8 48 f4 20 44 | 65 6c 65 74 65 20 6f 62 |....H. D|elete ob|
|000012a0| 6a 65 63 74 20 56 69 63 | 74 69 6d 25 2c 20 69 74 |ject Vic|tim%, it|
|000012b0| 73 20 73 75 62 2d 6f 62 | 6a 65 63 74 73 20 61 6e |s sub-ob|jects an|
|000012c0| 64 20 61 6c 6c 20 63 72 | 6f 73 73 2d 72 65 66 65 |d all cr|oss-refe|
|000012d0| 72 65 6e 63 65 73 20 74 | 6f 0d 00 a9 49 f4 20 69 |rences t|o...I. i|
|000012e0| 74 20 66 72 6f 6d 20 6f | 74 68 65 72 20 6f 62 6a |t from o|ther obj|
|000012f0| 65 63 74 73 2e 20 20 41 | 6c 73 6f 20 72 65 6d 6f |ects.  A|lso remo|
|00001300| 76 65 20 6f 62 6a 65 63 | 74 73 20 77 68 69 63 68 |ve objec|ts which|
|00001310| 20 61 72 65 20 6f 6e 6c | 79 20 72 65 66 65 72 72 | are onl|y referr|
|00001320| 65 64 0d 00 aa 46 f4 20 | 74 6f 20 66 72 6f 6d 20 |ed...F. |to from |
|00001330| 56 69 63 74 69 6d 25 2e | 20 20 54 68 65 73 65 20 |Victim%.|  These |
|00001340| 6d 61 79 20 62 65 20 73 | 68 61 72 65 64 20 73 6f |may be s|hared so|
|00001350| 20 77 65 20 68 61 76 65 | 20 74 6f 20 74 72 61 76 | we have| to trav|
|00001360| 65 72 73 65 20 74 68 65 | 0d 00 ab 42 f4 20 77 68 |erse the|...B. wh|
|00001370| 6f 6c 65 20 64 61 74 61 | 62 61 73 65 20 73 65 76 |ole data|base sev|
|00001380| 65 72 61 6c 20 74 69 6d | 65 73 20 74 6f 20 64 65 |eral tim|es to de|
|00001390| 74 65 72 6d 69 6e 65 20 | 77 68 61 74 27 73 20 73 |termine |what's s|
|000013a0| 74 69 6c 6c 20 6c 69 76 | 65 2e 0d 00 ac 04 0d 00 |till liv|e.......|
|000013b0| ad 14 dd 20 f2 4b 69 6c | 6c 28 56 69 63 74 69 6d |... .Kil|l(Victim|
|000013c0| 25 29 0d 00 ae 11 e7 20 | 56 69 63 74 69 6d 25 3d |%)..... |Victim%=|
|000013d0| 30 20 e1 0d 00 af 12 f2 | 4d 61 72 6b 28 56 69 63 |0 ......|Mark(Vic|
|000013e0| 74 69 6d 25 29 0d 00 b0 | 15 c8 95 20 a4 53 63 61 |tim%)...|... .Sca|
|000013f0| 6e 28 52 6f 6f 74 25 29 | 3a ce 0d 00 b1 18 4d 6f |n(Root%)|:.....Mo|
|00001400| 64 69 66 69 65 64 25 3d | b9 3a 46 6f 72 63 65 25 |dified%=|.:Force%|
|00001410| 3d 31 0d 00 b2 05 e1 0d | 00 b3 04 0d 00 b4 44 f4 |=1......|......D.|
|00001420| 20 4d 61 72 6b 20 6f 62 | 6a 65 63 74 20 4f 25 20 | Mark ob|ject O% |
|00001430| 61 6e 64 20 69 74 73 20 | 73 75 62 2d 6f 62 6a 65 |and its |sub-obje|
|00001440| 63 74 73 20 62 79 20 73 | 65 74 69 6e 67 20 74 68 |cts by s|eting th|
|00001450| 65 69 72 20 44 65 61 64 | 25 20 62 69 74 73 2e 0d |eir Dead|% bits..|
|00001460| 00 b5 04 0d 00 b6 0f dd | 20 f2 4d 61 72 6b 28 4f |........| .Mark(O|
|00001470| 25 29 0d 00 b7 1f 4f 25 | 21 4f 62 54 61 67 25 3d |%)....O%|!ObTag%=|
|00001480| 4f 25 21 4f 62 54 61 67 | 25 20 84 20 44 65 61 64 |O%!ObTag|% . Dead|
|00001490| 25 0d 00 b8 31 4f 25 3d | 4f 25 21 4f 62 53 75 62 |%...1O%=|O%!ObSub|
|000014a0| 73 25 3a c8 95 20 4f 25 | 3a f2 4d 61 72 6b 28 4f |s%:.. O%|:.Mark(O|
|000014b0| 25 29 3a 4f 25 3d 4f 25 | 21 4f 62 4e 65 78 74 25 |%):O%=O%|!ObNext%|
|000014c0| 3a ce 0d 00 b9 05 e1 0d | 00 ba 04 0d 00 bb 4c f4 |:.......|......L.|
|000014d0| 20 4d 61 72 6b 20 61 73 | 20 64 65 61 64 20 61 6e | Mark as| dead an|
|000014e0| 79 20 73 75 62 2d 6f 62 | 6a 65 63 74 20 6f 66 20 |y sub-ob|ject of |
|000014f0| 4f 25 20 77 68 69 63 68 | 20 69 73 20 61 20 63 72 |O% which| is a cr|
|00001500| 6f 73 73 2d 72 65 66 65 | 72 65 6e 63 65 20 74 6f |oss-refe|rence to|
|00001510| 20 61 20 64 65 61 64 0d | 00 bc 49 f4 20 6f 62 6a | a dead.|..I. obj|
|00001520| 65 63 74 2e 20 20 49 66 | 20 61 6e 79 20 73 75 62 |ect.  If| any sub|
|00001530| 2d 6f 62 6a 65 63 74 20 | 69 73 20 6d 61 72 6b 65 |-object |is marke|
|00001540| 64 20 61 73 20 64 65 61 | 64 2c 20 66 72 65 65 20 |d as dea|d, free |
|00001550| 69 74 20 61 6e 64 20 72 | 65 6d 6f 76 65 20 69 74 |it and r|emove it|
|00001560| 0d 00 bd 4a f4 20 66 72 | 6f 6d 20 74 68 65 20 6c |...J. fr|om the l|
|00001570| 69 73 74 2e 20 20 52 65 | 63 75 72 73 65 20 6f 6e |ist.  Re|curse on|
|00001580| 20 69 74 73 20 73 75 62 | 2d 6f 62 6a 65 63 74 73 | its sub|-objects|
|00001590| 2e 20 20 49 66 20 61 20 | 46 41 4d 20 6f 62 6a 65 |.  If a |FAM obje|
|000015a0| 63 74 20 69 73 20 6c 65 | 66 74 0d 00 be 4a f4 20 |ct is le|ft...J. |
|000015b0| 77 69 74 68 20 6c 65 73 | 73 20 74 68 61 6e 20 32 |with les|s than 2|
|000015c0| 20 73 75 62 2d 6f 62 6a | 65 63 74 73 20 74 68 65 | sub-obj|ects the|
|000015d0| 6e 20 72 65 6d 6f 76 65 | 20 69 74 2e 20 20 52 65 |n remove| it.  Re|
|000015e0| 74 75 72 6e 20 6e 6f 6e | 2d 7a 65 72 6f 20 69 66 |turn non|-zero if|
|000015f0| 20 61 6e 79 0d 00 bf 12 | f4 20 6f 62 6a 65 63 74 | any....|. object|
|00001600| 20 64 69 65 64 2e 0d 00 | c0 04 0d 00 c1 0f dd 20 | died...|....... |
|00001610| a4 53 63 61 6e 28 4f 25 | 29 0d 00 c2 0e ea 20 50 |.Scan(O%|)..... P|
|00001620| 25 2c 53 25 2c 54 25 0d | 00 c3 10 54 25 3d 4f 25 |%,S%,T%.|...T%=O%|
|00001630| 21 4f 62 54 61 67 25 0d | 00 c4 35 e7 20 54 25 20 |!ObTag%.|..5. T% |
|00001640| 80 20 52 65 66 54 61 67 | 25 20 54 25 3d 54 25 20 |. RefTag|% T%=T% |
|00001650| 84 20 4f 62 54 61 67 25 | 21 28 4f 25 21 4f 62 56 |. ObTag%|!(O%!ObV|
|00001660| 61 6c 25 29 20 80 20 44 | 65 61 64 25 0d 00 c5 10 |al%) . D|ead%....|
|00001670| 4f 25 21 4f 62 54 61 67 | 25 3d 54 25 0d 00 c6 11 |O%!ObTag|%=T%....|
|00001680| 50 25 3d 4f 25 2b 4f 62 | 53 75 62 73 25 0d 00 c7 |P%=O%+Ob|Subs%...|
|00001690| 0a c8 95 20 21 50 25 0d | 00 c8 1e 20 20 53 25 3d |... !P%.|...  S%=|
|000016a0| 21 50 25 3a 54 25 3d 54 | 25 20 84 20 a4 53 63 61 |!P%:T%=T|% . .Sca|
|000016b0| 6e 28 53 25 29 0d 00 c9 | 1b 20 20 e7 20 53 25 21 |n(S%)...|.  . S%!|
|000016c0| 4f 62 54 61 67 25 20 80 | 20 44 65 61 64 25 20 8c |ObTag% .| Dead% .|
|000016d0| 0d 00 ca 13 20 20 20 20 | f2 46 72 65 65 4f 62 28 |....    |.FreeOb(|
|000016e0| 53 25 29 0d 00 cb 16 20 | 20 20 20 21 50 25 3d 53 |S%).... |   !P%=S|
|000016f0| 25 21 4f 62 4e 65 78 74 | 25 0d 00 cc 15 20 20 cc |%!ObNext|%....  .|
|00001700| 20 50 25 3d 53 25 2b 4f | 62 4e 65 78 74 25 0d 00 | P%=S%+O|bNext%..|
|00001710| cd 07 20 20 cd 0d 00 ce | 05 ce 0d 00 cf 18 e7 20 |..  ....|....... |
|00001720| 4f 25 21 4f 62 54 61 67 | 25 3d 46 61 6d 54 67 25 |O%!ObTag|%=FamTg%|
|00001730| 20 8c 0d 00 d0 13 20 20 | 53 25 3d 4f 25 21 4f 62 | .....  |S%=O%!Ob|
|00001740| 53 75 62 73 25 0d 00 d1 | 3e 20 20 e7 20 53 25 20 |Subs%...|>  . S% |
|00001750| e7 20 53 25 21 4f 62 4e | 65 78 74 25 20 8b 20 4f |. S%!ObN|ext% . O|
|00001760| 25 21 4f 62 54 61 67 25 | 3d 4f 25 21 4f 62 54 61 |%!ObTag%|=O%!ObTa|
|00001770| 67 25 20 84 20 44 65 61 | 64 25 3a 54 25 3d 44 65 |g% . Dea|d%:T%=De|
|00001780| 61 64 25 0d 00 d2 05 cd | 0d 00 d3 0f 3d 54 25 20 |ad%.....|....=T% |
|00001790| 80 20 44 65 61 64 25 0d | 00 d4 04 0d 00 d5 49 f4 |. Dead%.|......I.|
|000017a0| 20 46 72 65 65 20 6f 62 | 6a 65 63 74 20 4f 25 20 | Free ob|ject O% |
|000017b0| 61 6e 64 20 69 74 73 20 | 76 61 6c 75 65 20 28 69 |and its |value (i|
|000017c0| 66 20 61 20 73 74 72 69 | 6e 67 29 20 62 75 74 20 |f a stri|ng) but |
|000017d0| 6e 6f 74 20 69 74 73 20 | 73 75 62 2d 6f 62 6a 65 |not its |sub-obje|
|000017e0| 63 74 73 2e 0d 00 d6 39 | f4 20 49 66 20 69 74 27 |cts....9|. If it'|
|000017f0| 73 20 61 20 64 69 73 70 | 6c 61 79 20 73 74 72 75 |s a disp|lay stru|
|00001800| 63 74 75 72 65 20 70 6f | 69 6e 74 65 72 2c 20 66 |cture po|inter, f|
|00001810| 72 65 65 20 74 68 65 20 | 6e 61 6d 65 2e 0d 00 d7 |ree the |name....|
|00001820| 04 0d 00 d8 11 dd 20 f2 | 46 72 65 65 4f 62 28 4f |...... .|FreeOb(O|
|00001830| 25 29 0d 00 d9 32 e7 20 | 4f 25 21 4f 62 54 61 67 |%)...2. |O%!ObTag|
|00001840| 25 3d 44 69 73 70 54 67 | 25 20 f2 46 72 65 65 28 |%=DispTg|% .Free(|
|00001850| 44 53 4e 61 6d 65 25 21 | 28 4f 25 21 4f 62 56 61 |DSName%!|(O%!ObVa|
|00001860| 6c 25 29 29 0d 00 da 2e | e7 20 28 4f 25 21 4f 62 |l%))....|. (O%!Ob|
|00001870| 54 61 67 25 20 80 20 52 | 65 66 54 61 67 25 29 3d |Tag% . R|efTag%)=|
|00001880| 30 20 f2 46 72 65 65 28 | 4f 25 21 4f 62 56 61 6c |0 .Free(|O%!ObVal|
|00001890| 25 29 0d 00 db 0d f2 46 | 72 65 65 28 4f 25 29 0d |%).....F|ree(O%).|
|000018a0| 00 dc 05 e1 0d 00 dd 04 | 0d 00 de 48 f4 20 52 65 |........|...H. Re|
|000018b0| 6d 6f 76 65 20 4f 25 27 | 73 20 66 69 72 73 74 20 |move O%'|s first |
|000018c0| 73 75 62 2d 6f 62 6a 65 | 63 74 20 77 69 74 68 20 |sub-obje|ct with |
|000018d0| 54 61 67 25 20 61 6e 64 | 20 56 61 6c 25 20 62 75 |Tag% and| Val% bu|
|000018e0| 74 20 64 6f 6e 27 74 20 | 66 72 65 65 20 69 74 2e |t don't |free it.|
|000018f0| 0d 00 df 04 0d 00 e0 1b | dd 20 f2 52 65 6d 53 75 |........|. .RemSu|
|00001900| 62 28 4f 25 2c 54 61 67 | 25 2c 56 61 6c 25 29 0d |b(O%,Tag|%,Val%).|
|00001910| 00 e1 08 ea 20 50 25 0d | 00 e2 24 e7 20 4f 25 3d |.... P%.|..$. O%=|
|00001920| 30 20 84 20 56 61 6c 25 | 3d 30 20 85 20 31 2c 22 |0 . Val%|=0 . 1,"|
|00001930| 50 52 4f 43 52 65 6d 53 | 75 62 22 0d 00 e3 11 50 |PROCRemS|ub"....P|
|00001940| 25 3d 4f 25 2b 4f 62 53 | 75 62 73 25 0d 00 e4 0a |%=O%+ObS|ubs%....|
|00001950| c8 95 20 21 50 25 0d 00 | e5 0c 20 20 4f 25 3d 21 |.. !P%..|..  O%=!|
|00001960| 50 25 0d 00 e6 18 20 20 | e7 20 4f 25 21 4f 62 54 |P%....  |. O%!ObT|
|00001970| 61 67 25 3d 54 61 67 25 | 20 8c 0d 00 e7 1a 20 20 |ag%=Tag%| .....  |
|00001980| 20 20 e7 20 4f 25 21 4f | 62 56 61 6c 25 3d 56 61 |  . O%!O|bVal%=Va|
|00001990| 6c 25 20 8c 0d 00 e8 26 | 20 20 20 20 20 20 21 50 |l% ....&|      !P|
|000019a0| 25 3d 4f 25 21 4f 62 4e | 65 78 74 25 3a 4d 6f 64 |%=O%!ObN|ext%:Mod|
|000019b0| 69 66 69 65 64 25 3d b9 | 3a e1 0d 00 e9 09 20 20 |ified%=.|:.....  |
|000019c0| 20 20 cd 0d 00 ea 07 20 | 20 cd 0d 00 eb 13 20 20 |  ..... | .....  |
|000019d0| 50 25 3d 4f 25 2b 4f 62 | 4e 65 78 74 25 0d 00 ec |P%=O%+Ob|Next%...|
|000019e0| 05 ce 0d 00 ed 05 e1 0d | 00 ee 04 0d 00 ef 2a f4 |........|......*.|
|000019f0| 20 52 65 6d 6f 76 65 20 | 53 25 20 66 72 6f 6d 20 | Remove |S% from |
|00001a00| 4f 25 27 73 20 73 75 62 | 2d 6f 62 6a 65 63 74 20 |O%'s sub|-object |
|00001a10| 6c 69 73 74 2e 0d 00 f0 | 04 0d 00 f1 17 dd 20 f2 |list....|...... .|
|00001a20| 52 65 6d 53 75 62 4f 62 | 6a 28 4f 25 2c 53 25 29 |RemSubOb|j(O%,S%)|
|00001a30| 0d 00 f2 11 4f 25 3d 4f | 25 2b 4f 62 53 75 62 73 |....O%=O|%+ObSubs|
|00001a40| 25 0d 00 f3 09 c8 95 20 | 4f 25 0d 00 f4 21 20 20 |%...... |O%...!  |
|00001a50| e7 20 21 4f 25 3d 53 25 | 20 8c 20 21 4f 25 3d 53 |. !O%=S%| . !O%=S|
|00001a60| 25 21 4f 62 4e 65 78 74 | 25 3a e1 0d 00 f5 14 20 |%!ObNext|%:..... |
|00001a70| 20 4f 25 3d 21 4f 25 2b | 4f 62 4e 65 78 74 25 0d | O%=!O%+|ObNext%.|
|00001a80| 00 f6 05 ce 0d 00 f7 05 | e1 0d 00 f8 04 0d 00 f9 |........|........|
|00001a90| 2c f4 20 52 65 6d 6f 76 | 65 20 61 6c 6c 20 4f 25 |,. Remov|e all O%|
|00001aa0| 27 73 20 73 75 62 2d 6f | 62 6a 65 63 74 73 20 77 |'s sub-o|bjects w|
|00001ab0| 69 74 68 20 54 61 67 25 | 2e 0d 00 fa 04 0d 00 fb |ith Tag%|........|
|00001ac0| 16 dd 20 f2 44 65 6c 54 | 61 67 28 4f 25 2c 54 61 |.. .DelT|ag(O%,Ta|
|00001ad0| 67 25 29 0d 00 fc 08 ea | 20 50 25 0d 00 fd 1b e7 |g%).....| P%.....|
|00001ae0| 20 4f 25 3d 30 20 85 20 | 31 2c 22 50 52 4f 43 44 | O%=0 . |1,"PROCD|
|00001af0| 65 6c 54 61 67 22 0d 00 | fe 11 50 25 3d 4f 25 2b |elTag"..|..P%=O%+|
|00001b00| 4f 62 53 75 62 73 25 0d | 00 ff 0a c8 95 20 21 50 |ObSubs%.|..... !P|
|00001b10| 25 0d 01 00 0c 20 20 4f | 25 3d 21 50 25 0d 01 01 |%....  O|%=!P%...|
|00001b20| 18 20 20 e7 20 4f 25 21 | 4f 62 54 61 67 25 3d 54 |.  . O%!|ObTag%=T|
|00001b30| 61 67 25 20 8c 0d 01 02 | 22 20 20 20 20 21 50 25 |ag% ....|"    !P%|
|00001b40| 3d 4f 25 21 4f 62 4e 65 | 78 74 25 3a f2 44 65 6c |=O%!ObNe|xt%:.Del|
|00001b50| 4f 62 6a 28 4f 25 29 0d | 01 03 07 20 20 cc 0d 01 |Obj(O%).|...  ...|
|00001b60| 04 15 20 20 20 20 50 25 | 3d 4f 25 2b 4f 62 4e 65 |..    P%|=O%+ObNe|
|00001b70| 78 74 25 0d 01 05 07 20 | 20 cd 0d 01 06 05 ce 0d |xt%.... | .......|
|00001b80| 01 07 05 e1 0d 01 08 04 | 0d 01 09 2b f4 20 52 65 |........|...+. Re|
|00001b90| 6d 6f 76 65 20 6f 62 6a | 65 63 74 20 4f 25 20 61 |move obj|ect O% a|
|00001ba0| 6e 64 20 69 74 73 20 73 | 75 62 2d 6f 62 6a 65 63 |nd its s|ub-objec|
|00001bb0| 74 73 2e 0d 01 0a 04 0d | 01 0b 11 dd 20 f2 44 65 |ts......|.... .De|
|00001bc0| 6c 4f 62 6a 28 4f 25 29 | 0d 01 0c 0f f2 46 72 65 |lObj(O%)|.....Fre|
|00001bd0| 65 4f 62 28 4f 25 29 0d | 01 0d 33 4f 25 3d 4f 25 |eOb(O%).|..3O%=O%|
|00001be0| 21 4f 62 53 75 62 73 25 | 3a c8 95 20 4f 25 3a f2 |!ObSubs%|:.. O%:.|
|00001bf0| 44 65 6c 4f 62 6a 28 4f | 25 29 3a 4f 25 3d 4f 25 |DelObj(O|%):O%=O%|
|00001c00| 21 4f 62 4e 65 78 74 25 | 3a ce 0d 01 0e 05 e1 0d |!ObNext%|:.......|
|00001c10| 01 0f 04 0d 01 10 48 f4 | 20 3d 3d 3d 3d 3d 3d 3d |......H.| =======|
|00001c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c30| 3d 3d 3d 3d 20 44 69 73 | 70 6c 61 79 20 3d 3d 3d |==== Dis|play ===|
|00001c40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 01 11 04 0d |========|===.....|
|00001c60| 01 12 1b f4 20 57 69 6d | 70 20 72 65 71 75 65 73 |.... Wim|p reques|
|00001c70| 74 73 20 72 65 64 72 61 | 77 2e 0d 01 13 04 0d 01 |ts redra|w.......|
|00001c80| 14 0d dd 20 f2 52 65 64 | 72 61 77 0d 01 15 17 ea |... .Red|raw.....|
|00001c90| 20 58 57 25 2c 59 57 25 | 2c 4d 25 2c 50 25 2c 57 | XW%,YW%|,M%,P%,W|
|00001ca0| 48 25 0d 01 16 23 c8 99 | 20 22 57 69 6d 70 5f 52 |H%...#..| "Wimp_R|
|00001cb0| 65 64 72 61 77 57 69 6e | 64 6f 77 22 2c 2c 62 25 |edrawWin|dow",,b%|
|00001cc0| 20 b8 20 4d 25 0d 01 17 | 3a 57 48 25 3d 21 62 25 | . M%...|:WH%=!b%|
|00001cd0| 3a 58 57 25 3d 62 25 21 | 34 2d 62 25 21 32 30 3a |:XW%=b%!|4-b%!20:|
|00001ce0| 59 57 25 3d 62 25 21 31 | 36 2d 62 25 21 32 34 20 |YW%=b%!1|6-b%!24 |
|00001cf0| 3a f4 20 57 6f 72 6b 20 | 6f 72 69 67 69 6e 2e 0d |:. Work |origin..|
|00001d00| 01 18 20 e7 20 57 48 25 | 3d 4d 61 69 6e 57 48 25 |.. . WH%|=MainWH%|
|00001d10| 20 e7 20 54 6f 70 43 68 | 69 6c 25 3d 30 20 e1 0d | . TopCh|il%=0 ..|
|00001d20| 01 19 09 c8 95 20 4d 25 | 0d 01 1a 0e 20 20 c8 8e |..... M%|....  ..|
|00001d30| 20 57 48 25 20 ca 0d 01 | 1b 43 20 20 c9 20 4d 61 | WH% ...|.C  . Ma|
|00001d40| 69 6e 57 48 25 3a f2 44 | 69 73 70 6c 61 79 28 62 |inWH%:.D|isplay(b|
|00001d50| 25 21 32 38 2d 58 57 25 | 2c 62 25 21 33 32 2d 59 |%!28-XW%|,b%!32-Y|
|00001d60| 57 25 2c 62 25 21 33 36 | 2d 58 57 25 2c 62 25 21 |W%,b%!36|-XW%,b%!|
|00001d70| 34 30 2d 59 57 25 2c a3 | 29 0d 01 1c 36 20 20 c9 |40-YW%,.|)...6  .|
|00001d80| 20 43 6f 6d 70 57 48 25 | 3a f2 44 72 61 77 43 6f | CompWH%|:.DrawCo|
|00001d90| 6d 70 28 58 57 25 2c 59 | 57 25 2c 62 25 21 33 32 |mp(XW%,Y|W%,b%!32|
|00001da0| 2d 59 57 25 2c 62 25 21 | 34 30 2d 59 57 25 29 0d |-YW%,b%!|40-YW%).|
|00001db0| 01 1d 22 20 20 c9 20 4e | 6f 74 65 57 48 25 3a f2 |.."  . N|oteWH%:.|
|00001dc0| 44 72 61 77 4e 6f 74 65 | 28 58 57 25 2c 59 57 25 |DrawNote|(XW%,YW%|
|00001dd0| 29 0d 01 1e 18 20 20 7f | 20 85 20 31 2c 22 50 52 |)....  .| . 1,"PR|
|00001de0| 4f 43 52 65 64 72 61 77 | 22 0d 01 1f 07 20 20 cb |OCRedraw|"....  .|
|00001df0| 0d 01 20 19 20 20 c8 99 | 20 47 65 74 52 65 63 25 |.. .  ..| GetRec%|
|00001e00| 2c 2c 62 25 20 b8 20 4d | 25 0d 01 21 05 ce 0d 01 |,,b% . M|%..!....|
|00001e10| 22 05 e1 0d 01 23 04 0d | 01 24 2f f4 20 53 6f 6d |"....#..|.$/. Som|
|00001e20| 65 74 68 69 6e 67 20 69 | 6e 20 74 68 65 20 6d 61 |ething i|n the ma|
|00001e30| 69 6e 20 77 69 6e 64 6f | 77 20 68 61 73 20 63 68 |in windo|w has ch|
|00001e40| 61 6e 67 65 64 2e 0d 01 | 25 2f f4 20 52 65 63 61 |anged...|%/. Reca|
|00001e50| 6c 63 75 6c 61 74 65 20 | 61 6c 6c 20 70 6f 73 69 |lculate |all posi|
|00001e60| 74 69 6f 6e 73 20 61 6e | 64 20 74 68 65 20 65 78 |tions an|d the ex|
|00001e70| 74 65 6e 74 2e 0d 01 26 | 04 0d 01 27 0c dd 20 f2 |tent...&|...'.. .|
|00001e80| 46 6f 72 63 65 0d 01 28 | 11 ea 20 46 25 2c 4f 25 |Force..(|.. F%,O%|
|00001e90| 2c 58 25 2c 59 25 0d 01 | 29 1b 55 73 65 46 6f 6e |,X%,Y%..|).UseFon|
|00001ea0| 74 25 3d 53 63 72 65 65 | 6e 55 73 65 46 6f 6e 74 |t%=Scree|nUseFont|
|00001eb0| 25 0d 01 2a 0c f2 43 61 | 6c 63 41 6c 6c 0d 01 2b |%..*..Ca|lcAll..+|
|00001ec0| 13 f2 43 6c 6f 73 65 28 | 4d 61 69 6e 57 48 25 29 |..Close(|MainWH%)|
|00001ed0| 0d 01 2c 2a 62 25 21 30 | 3d 28 78 4d 69 6e 25 2d |..,*b%!0|=(xMin%-|
|00001ee0| 33 32 29 20 80 20 ac 20 | 37 3a 62 25 21 34 3d 79 |32) . . |7:b%!4=y|
|00001ef0| 4d 69 6e 25 20 80 20 ac | 20 37 0d 01 2d 2e 62 25 |Min% . .| 7..-.b%|
|00001f00| 21 38 3d 28 78 4d 61 78 | 25 2b 37 29 20 80 20 ac |!8=(xMax|%+7) . .|
|00001f10| 20 37 3a 62 25 21 31 32 | 3d 28 79 4d 61 78 25 2b | 7:b%!12|=(yMax%+|
|00001f20| 37 29 20 80 20 ac 20 37 | 0d 01 2e 22 c8 99 20 22 |7) . . 7|...".. "|
|00001f30| 57 69 6d 70 5f 53 65 74 | 45 78 74 65 6e 74 22 2c |Wimp_Set|Extent",|
|00001f40| 4d 61 69 6e 57 48 25 2c | 62 25 0d 01 2f 1f 62 25 |MainWH%,|b%../.b%|
|00001f50| 21 30 3d 4d 61 69 6e 57 | 48 25 3a c8 99 20 47 65 |!0=MainW|H%:.. Ge|
|00001f60| 74 57 69 6e 25 2c 2c 62 | 25 0d 01 30 1d e7 20 46 |tWin%,,b|%..0.. F|
|00001f70| 6f 72 63 65 25 3e 31 20 | 80 20 54 6f 70 43 68 69 |orce%>1 |. TopChi|
|00001f80| 6c 25 3e 30 20 8c 0d 01 | 31 31 20 20 f4 20 46 69 |l%>0 ...|11  . Fi|
|00001f90| 6e 64 20 74 68 65 20 43 | 68 69 6c 20 6f 62 6a 65 |nd the C|hil obje|
|00001fa0| 63 74 20 70 6f 69 6e 74 | 69 6e 67 20 74 6f 20 50 |ct point|ing to P|
|00001fb0| 65 72 73 6f 6e 25 2e 0d | 01 32 11 20 20 4f 25 3d |erson%..|.2.  O%=|
|00001fc0| 54 6f 70 43 68 69 6c 25 | 0d 01 33 1c 20 20 e7 20 |TopChil%|..3.  . |
|00001fd0| 4f 25 21 4f 62 56 61 6c | 25 3c 3e 50 65 72 73 6f |O%!ObVal|%<>Perso|
|00001fe0| 6e 25 20 8c 0d 01 34 37 | 20 20 20 20 46 25 3d 30 |n% ...47|    F%=0|
|00001ff0| 3a 46 25 3d 4f 62 56 61 | 6c 25 21 a4 47 65 74 53 |:F%=ObVa|l%!.GetS|
|00002000| 75 62 28 50 65 72 73 6f | 6e 25 2c 46 61 6d 63 54 |ub(Perso|n%,FamcT|
|00002010| 67 25 2c 46 25 29 3a 4f | 25 3d 30 0d 01 35 31 20 |g%,F%):O|%=0..51 |
|00002020| 20 20 20 f5 20 fd 20 4f | 62 56 61 6c 25 21 a4 47 |   . . O|bVal%!.G|
|00002030| 65 74 53 75 62 28 46 25 | 2c 43 68 69 6c 54 67 25 |etSub(F%|,ChilTg%|
|00002040| 2c 4f 25 29 3d 50 65 72 | 73 6f 6e 25 0d 01 36 07 |,O%)=Per|son%..6.|
|00002050| 20 20 cd 0d 01 37 33 20 | 20 f2 47 65 74 50 6f 73 |  ...73 | .GetPos|
|00002060| 28 4f 25 2c 58 25 2c 59 | 25 29 20 20 3a f4 20 53 |(O%,X%,Y|%)  :. S|
|00002070| 63 72 6f 6c 6c 20 74 6f | 20 73 68 6f 77 20 50 65 |croll to| show Pe|
|00002080| 72 73 6f 6e 25 2e 0d 01 | 38 1f 20 20 62 25 21 32 |rson%...|8.  b%!2|
|00002090| 30 3d 58 25 2d 28 62 25 | 21 31 32 2d 62 25 21 34 |0=X%-(b%|!12-b%!4|
|000020a0| 29 20 81 20 32 0d 01 39 | 1f 20 20 62 25 21 32 34 |) . 2..9|.  b%!24|
|000020b0| 3d 59 25 2b 28 62 25 21 | 31 36 2d 62 25 21 38 29 |=Y%+(b%!|16-b%!8)|
|000020c0| 20 81 20 32 0d 01 3a 44 | 20 20 f4 20 62 25 21 38 | . 2..:D|  . b%!8|
|000020d0| 2d 3d 49 6e 66 69 6e 69 | 74 79 25 3a 62 25 21 31 |-=Infini|ty%:b%!1|
|000020e0| 32 2b 3d 49 6e 66 69 6e | 69 74 79 25 20 3a 52 45 |2+=Infin|ity% :RE|
|000020f0| 4d 20 4d 61 78 20 77 69 | 6e 64 6f 77 20 64 6f 77 |M Max wi|ndow dow|
|00002100| 6e 20 72 69 67 68 74 2e | 0d 01 3b 05 cd 0d 01 3c |n right.|..;....<|
|00002110| 1c c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |... "Wim|p_OpenWi|
|00002120| 6e 64 6f 77 22 2c 2c 62 | 25 0d 01 3d 0c 46 6f 72 |ndow",,b|%..=.For|
|00002130| 63 65 25 3d 30 0d 01 3e | 05 e1 0d 01 3f 04 0d 01 |ce%=0..>|....?...|
|00002140| 40 1b dd 20 f2 47 65 74 | 50 6f 73 28 52 25 2c f8 |@.. .Get|Pos(R%,.|
|00002150| 20 58 25 2c f8 20 59 25 | 29 0d 01 41 1b e7 20 52 | X%,. Y%|)..A.. R|
|00002160| 25 3d 30 20 85 20 31 2c | 22 50 52 4f 43 47 65 74 |%=0 . 1,|"PROCGet|
|00002170| 50 6f 73 22 0d 01 42 1a | 52 25 3d 4f 62 56 61 6c |Pos"..B.|R%=ObVal|
|00002180| 25 21 28 52 25 21 4f 62 | 53 75 62 73 25 29 0d 01 |%!(R%!Ob|Subs%)..|
|00002190| 43 19 58 25 3d 52 25 21 | 44 53 78 25 3a 59 25 3d |C.X%=R%!|DSx%:Y%=|
|000021a0| 52 25 21 44 53 79 25 0d | 01 44 05 e1 0d 01 45 04 |R%!DSy%.|.D....E.|
|000021b0| 0d 01 46 23 dd 20 a4 4e | 61 6d 65 28 50 25 29 3d |..F#. .N|ame(P%)=|
|000021c0| a4 47 65 74 53 74 72 28 | 50 25 2c 4e 61 6d 65 54 |.GetStr(|P%,NameT|
|000021d0| 67 25 29 0d 01 47 04 0d | 01 48 3d f4 20 49 66 20 |g%)..G..|.H=. If |
|000021e0| 4e 24 20 63 6f 6e 74 61 | 69 6e 73 20 74 77 6f 20 |N$ conta|ins two |
|000021f0| 27 2f 27 73 20 72 65 74 | 75 72 6e 20 74 68 65 20 |'/'s ret|urn the |
|00002200| 73 74 72 69 6e 67 20 62 | 65 74 77 65 65 6e 20 74 |string b|etween t|
|00002210| 68 65 6d 2e 0d 01 49 46 | f4 20 4f 74 68 65 72 77 |hem...IF|. Otherw|
|00002220| 69 73 65 20 72 65 74 75 | 72 6e 20 74 68 65 20 6c |ise retu|rn the l|
|00002230| 61 73 74 20 77 6f 72 64 | 20 70 72 65 63 65 64 65 |ast word| precede|
|00002240| 64 20 62 79 20 61 20 73 | 70 61 63 65 20 6f 72 20 |d by a s|pace or |
|00002250| 6e 6f 74 68 69 6e 67 20 | 69 66 0d 01 4a 44 f4 20 |nothing |if..JD. |
|00002260| 6e 6f 20 73 75 63 68 20 | 77 6f 72 64 2e 20 20 49 |no such |word.  I|
|00002270| 67 6e 6f 72 65 20 61 6e | 79 74 68 69 6e 67 20 61 |gnore an|ything a|
|00002280| 66 74 65 72 20 61 20 6e | 6f 6e 2d 69 6e 69 74 69 |fter a n|on-initi|
|00002290| 61 6c 20 27 28 27 20 6f | 72 20 27 5b 27 2e 0d 01 |al '(' o|r '['...|
|000022a0| 4b 04 0d 01 4c 12 dd 20 | a4 46 61 6d 4e 61 6d 65 |K...L.. |.FamName|
|000022b0| 28 4e 24 29 0d 01 4d 0e | ea 20 42 25 2c 45 25 2c |(N$)..M.|. B%,E%,|
|000022c0| 53 25 0d 01 4e 10 e7 20 | 4e 24 3d 22 22 20 8c 3d |S%..N.. |N$="" .=|
|000022d0| 22 22 0d 01 4f 30 f4 20 | 43 68 65 63 6b 20 66 6f |""..O0. |Check fo|
|000022e0| 72 20 47 45 44 43 4f 4d | 20 66 61 6d 69 6c 79 20 |r GEDCOM| family |
|000022f0| 6e 61 6d 65 20 62 65 74 | 77 65 65 6e 20 27 2f 27 |name bet|ween '/'|
|00002300| 73 2e 0d 01 50 0f 53 25 | 3d a7 4e 24 2c 22 2f 22 |s...P.S%|=.N$,"/"|
|00002310| 29 0d 01 51 32 e7 20 53 | 25 20 53 25 2b 3d 31 3a |)..Q2. S|% S%+=1:|
|00002320| 45 25 3d a7 4e 24 2c 22 | 2f 22 2c 53 25 29 3a e7 |E%=.N$,"|/",S%):.|
|00002330| 20 45 25 20 8c 3d c1 4e | 24 2c 53 25 2c 45 25 2d | E% .=.N|$,S%,E%-|
|00002340| 53 25 29 0d 01 52 26 42 | 25 3d a7 4e 24 2c 22 28 |S%)..R&B|%=.N$,"(|
|00002350| 22 2c 32 29 3a e7 20 42 | 25 3d 30 20 42 25 3d a7 |",2):. B|%=0 B%=.|
|00002360| 4e 24 2c 22 5b 22 2c 32 | 29 0d 01 53 15 e7 20 42 |N$,"[",2|)..S.. B|
|00002370| 25 20 4e 24 3d c0 4e 24 | 2c 42 25 2d 31 29 0d 01 |% N$=.N$|,B%-1)..|
|00002380| 54 23 c8 95 20 c2 4e 24 | 2c 31 29 3d 22 20 22 3a |T#.. .N$|,1)=" ":|
|00002390| 4e 24 3d c0 4e 24 2c a9 | 28 4e 24 29 2d 31 29 3a |N$=.N$,.|(N$)-1):|
|000023a0| ce 0d 01 55 08 42 25 3d | a3 0d 01 56 28 f5 20 53 |...U.B%=|...V(. S|
|000023b0| 25 3d a7 4e 24 2c 22 20 | 22 29 3a e7 20 53 25 20 |%=.N$," |"):. S% |
|000023c0| 4e 24 3d c1 4e 24 2c 53 | 25 2b 31 29 3a 42 25 3d |N$=.N$,S|%+1):B%=|
|000023d0| b9 0d 01 57 0a fd 20 53 | 25 3d 30 0d 01 58 0d e7 |...W.. S|%=0..X..|
|000023e0| 20 42 25 20 8c 3d 4e 24 | 0d 01 59 07 3d 22 22 0d | B% .=N$|..Y.="".|
|000023f0| 01 5a 04 0d 01 5b 3c f4 | 20 52 65 74 75 72 6e 20 |.Z...[<.| Return |
|00002400| 50 25 27 73 20 64 61 74 | 65 73 20 73 74 72 69 6e |P%'s dat|es strin|
|00002410| 67 2e 20 20 53 68 6f 77 | 20 22 3f 22 20 66 6f 72 |g.  Show| "?" for|
|00002420| 20 6d 69 73 73 69 6e 67 | 20 64 2e 6f 2e 62 2e 0d | missing| d.o.b..|
|00002430| 01 5c 3b f4 20 62 75 74 | 20 6e 6f 74 68 69 6e 67 |.\;. but| nothing|
|00002440| 20 66 6f 72 20 64 65 61 | 74 68 20 28 77 6f 75 6c | for dea|th (woul|
|00002450| 64 20 73 75 67 67 65 73 | 74 20 70 65 72 73 6f 6e |d sugges|t person|
|00002460| 20 69 73 20 64 65 61 64 | 29 2e 0d 01 5d 04 0d 01 | is dead|)...]...|
|00002470| 5e 10 dd 20 a4 44 61 74 | 65 73 28 50 25 29 0d 01 |^.. .Dat|es(P%)..|
|00002480| 5f 0b ea 20 44 24 2c 57 | 24 0d 01 60 11 44 24 3d |_.. D$,W|$..`.D$=|
|00002490| a4 42 69 72 74 68 28 50 | 25 29 0d 01 61 21 e7 20 |.Birth(P|%)..a!. |
|000024a0| 44 24 3e 22 22 20 57 24 | 3d a4 59 65 61 72 28 44 |D$>"" W$|=.Year(D|
|000024b0| 24 29 20 8b 20 57 24 3d | 22 3f 22 0d 01 62 0c 57 |$) . W$=|"?"..b.W|
|000024c0| 24 2b 3d 22 20 2d 22 0d | 01 63 11 44 24 3d a4 44 |$+=" -".|.c.D$=.D|
|000024d0| 65 61 74 68 28 50 25 29 | 0d 01 64 1d e7 20 44 24 |eath(P%)|..d.. D$|
|000024e0| 3e 22 22 20 57 24 2b 3d | 22 20 22 2b a4 59 65 61 |>"" W$+=|" "+.Yea|
|000024f0| 72 28 44 24 29 0d 01 65 | 07 3d 57 24 0d 01 66 04 |r(D$)..e|.=W$..f.|
|00002500| 0d 01 67 33 f4 20 52 65 | 74 75 72 6e 20 64 61 74 |..g3. Re|turn dat|
|00002510| 65 20 66 72 6f 6d 20 6c | 61 73 74 20 67 72 6f 75 |e from l|ast grou|
|00002520| 70 20 6f 66 20 64 69 67 | 69 74 73 20 74 6f 20 65 |p of dig|its to e|
|00002530| 6e 64 2e 0d 01 68 04 0d | 01 69 0f dd 20 a4 59 65 |nd...h..|.i.. .Ye|
|00002540| 61 72 28 44 24 29 0d 01 | 6a 08 ea 20 45 25 0d 01 |ar(D$)..|j.. E%..|
|00002550| 6b 1a e7 20 ac 20 53 68 | 6f 77 59 65 61 72 4f 6e |k.. . Sh|owYearOn|
|00002560| 6c 79 25 20 8c 3d 44 24 | 0d 01 6c 0c 45 25 3d a9 |ly% .=D$|..l.E%=.|
|00002570| 28 44 24 29 0d 01 6d 0b | c8 95 20 45 25 3e 31 0d |(D$)..m.|.. E%>1.|
|00002580| 01 6e 1b 20 20 e7 20 a4 | 44 69 67 69 74 28 c1 44 |.n.  . .|Digit(.D|
|00002590| 24 2c 45 25 2c 31 29 29 | 20 8c 0d 01 6f 25 20 20 |$,E%,1))| ...o%  |
|000025a0| 20 20 f5 20 45 25 2d 3d | 31 3a fd 20 ac 20 a4 44 |  . E%-=|1:. . .D|
|000025b0| 69 67 69 74 28 c1 44 24 | 2c 45 25 2c 31 29 29 0d |igit(.D$|,E%,1)).|
|000025c0| 01 70 12 20 20 20 20 3d | c1 44 24 2c 45 25 2b 31 |.p.    =|.D$,E%+1|
|000025d0| 29 0d 01 71 07 20 20 cd | 0d 01 72 0b 20 20 45 25 |)..q.  .|..r.  E%|
|000025e0| 2d 3d 31 0d 01 73 05 ce | 0d 01 74 07 3d 44 24 0d |-=1..s..|..t.=D$.|
|000025f0| 01 75 04 0d 01 76 10 dd | 20 a4 41 6c 70 68 61 28 |.u...v..| .Alpha(|
|00002600| 43 24 29 0d 01 77 17 ea | 20 43 25 3a 43 25 3d 97 |C$)..w..| C%:C%=.|
|00002610| 28 43 24 29 20 80 20 26 | 44 46 0d 01 78 18 3d 43 |(C$) . &|DF..x.=C|
|00002620| 25 3e 3d 97 22 41 22 20 | 80 20 43 25 3c 3d 97 22 |%>=."A" |. C%<=."|
|00002630| 5a 22 0d 01 79 04 0d 01 | 7a 22 dd 20 a4 44 69 67 |Z"..y...|z". .Dig|
|00002640| 69 74 28 43 24 29 3d 43 | 24 3e 3d 22 30 22 20 80 |it(C$)=C|$>="0" .|
|00002650| 20 43 24 3c 3d 22 39 22 | 0d 01 7b 04 0d 01 7c 48 | C$<="9"|..{...|H|
|00002660| f4 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |. ======|========|
|00002670| 3d 3d 3d 3d 3d 3d 3d 20 | 43 61 6c 63 75 6c 61 74 |======= |Calculat|
|00002680| 65 20 70 6f 73 69 74 69 | 6f 6e 73 20 3d 3d 3d 3d |e positi|ons ====|
|00002690| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000026a0| 3d 3d 3d 3d 0d 01 7d 04 | 0d 01 7e 30 f4 20 43 61 |====..}.|..~0. Ca|
|000026b0| 6c 63 75 6c 61 74 65 20 | 77 6f 72 6b 20 63 6f 6f |lculate |work coo|
|000026c0| 72 64 73 20 6f 66 20 50 | 65 72 73 6f 6e 25 27 73 |rds of P|erson%'s|
|000026d0| 20 66 61 6d 69 6c 79 2e | 0d 01 7f 2f f4 20 47 6c | family.|.../. Gl|
|000026e0| 6f 62 61 6c 20 55 73 65 | 46 6f 6e 74 25 20 64 65 |obal Use|Font% de|
|000026f0| 74 65 72 6d 69 6e 65 73 | 20 73 74 72 69 6e 67 20 |termines| string |
|00002700| 77 69 64 74 68 73 2e 0d | 01 80 3b f4 20 53 65 74 |widths..|..;. Set|
|00002710| 73 20 67 6c 6f 62 61 6c | 20 77 6f 72 6b 20 61 72 |s global| work ar|
|00002720| 65 61 20 28 78 4d 69 6e | 25 2c 79 4d 69 6e 25 29 |ea (xMin|%,yMin%)|
|00002730| 20 74 6f 20 28 78 4d 61 | 78 25 2c 79 4d 61 78 25 | to (xMa|x%,yMax%|
|00002740| 29 2e 0d 01 81 04 0d 01 | 82 0e dd 20 f2 43 61 6c |).......|... .Cal|
|00002750| 63 41 6c 6c 0d 01 83 19 | ea 20 44 53 25 2c 48 25 |cAll....|. DS%,H%|
|00002760| 2c 49 25 2c 50 25 2c 53 | 25 2c 59 30 25 0d 01 84 |,I%,P%,S|%,Y0%...|
|00002770| 33 c8 99 20 22 46 6f 6e | 74 5f 53 65 74 46 6f 6e |3.. "Fon|t_SetFon|
|00002780| 74 22 2c 46 6f 6e 74 25 | 20 20 20 20 20 20 3a f4 |t",Font%|      :.|
|00002790| 20 41 66 66 65 63 74 73 | 20 77 69 64 74 68 73 2e | Affects| widths.|
|000027a0| 0d 01 85 49 47 61 70 25 | 3d a4 57 69 64 74 68 28 |...IGap%|=.Width(|
|000027b0| 22 58 58 22 29 20 20 20 | 20 20 20 20 20 20 20 20 |"XX")   |        |
|000027c0| 20 3a f4 20 48 6f 72 69 | 7a 2e 20 73 70 61 63 65 | :. Hori|z. space|
|000027d0| 20 62 65 74 77 65 65 6e | 20 61 64 6a 61 63 65 6e | between| adjacen|
|000027e0| 74 20 70 65 6f 70 6c 65 | 2e 0d 01 86 46 e7 20 55 |t people|....F. U|
|000027f0| 73 65 46 6f 6e 74 25 20 | c8 99 20 22 46 6f 6e 74 |seFont% |.. "Font|
|00002800| 5f 52 65 61 64 49 6e 66 | 6f 22 2c 46 6f 6e 74 25 |_ReadInf|o",Font%|
|00002810| 20 b8 2c 2c 59 30 25 2c | 2c 48 25 3a 48 25 2d 3d | .,,Y0%,|,H%:H%-=|
|00002820| 59 30 25 20 8b 20 48 25 | 3d 43 68 61 72 48 25 0d |Y0% . H%|=CharH%.|
|00002830| 01 87 14 4c 69 6e 65 48 | 65 69 67 68 74 25 3d 48 |...LineH|eight%=H|
|00002840| 25 2b 38 0d 01 88 31 78 | 4d 69 6e 25 3d 30 3a 79 |%+8...1x|Min%=0:y|
|00002850| 4d 69 6e 25 3d 30 3a 78 | 4d 61 78 25 3d 4d 69 6e |Min%=0:x|Max%=Min|
|00002860| 57 25 3a 79 4d 61 78 25 | 3d 30 3a 78 4d 61 78 25 |W%:yMax%|=0:xMax%|
|00002870| 28 29 3d 30 0d 01 89 1c | e7 20 50 65 72 73 6f 6e |()=0....|. Person|
|00002880| 25 3d 30 20 54 6f 70 43 | 68 69 6c 25 3d 30 3a e1 |%=0 TopC|hil%=0:.|
|00002890| 0d 01 8a 3d f4 20 46 61 | 6b 65 20 61 20 43 48 49 |...=. Fa|ke a CHI|
|000028a0| 4c 20 6f 62 6a 65 63 74 | 20 74 6f 20 70 6f 69 6e |L object| to poin|
|000028b0| 74 20 74 6f 20 74 68 65 | 20 70 65 72 73 6f 6e 20 |t to the| person |
|000028c0| 61 74 20 74 68 65 20 74 | 6f 70 20 6f 66 0d 01 8b |at the t|op of...|
|000028d0| 3e f4 20 74 68 65 20 74 | 72 65 65 2e 20 20 41 74 |>. the t|ree.  At|
|000028e0| 74 61 63 68 20 74 68 65 | 20 74 6f 70 20 6c 65 76 |tach the| top lev|
|000028f0| 65 6c 20 64 69 73 70 6c | 61 79 20 73 74 72 75 63 |el displ|ay struc|
|00002900| 74 75 72 65 20 74 6f 20 | 69 74 2e 0d 01 8c 2c 54 |ture to |it....,T|
|00002910| 6f 70 43 68 69 6c 25 3d | a4 4f 62 6a 65 63 74 28 |opChil%=|.Object(|
|00002920| 43 68 69 6c 54 67 25 2c | a4 46 6f 72 65 28 50 65 |ChilTg%,|.Fore(Pe|
|00002930| 72 73 6f 6e 25 29 29 0d | 01 8d 1a 44 53 25 3d a4 |rson%)).|...DS%=.|
|00002940| 44 53 74 72 75 63 74 28 | 54 6f 70 43 68 69 6c 25 |DStruct(|TopChil%|
|00002950| 29 0d 01 8e 14 53 25 3d | 54 6f 70 43 68 69 6c 25 |)....S%=|TopChil%|
|00002960| 3a 50 25 3d 30 0d 01 8f | 0b c8 95 20 53 25 3e 31 |:P%=0...|... S%>1|
|00002970| 0d 01 90 14 20 20 c8 8e | 20 53 25 21 4f 62 54 61 |....  ..| S%!ObTa|
|00002980| 67 25 20 ca 0d 01 91 1f | 20 20 c9 20 48 75 73 62 |g% .....|  . Husb|
|00002990| 54 67 25 2c 57 69 66 65 | 54 67 25 2c 43 68 69 6c |Tg%,Wife|Tg%,Chil|
|000029a0| 54 67 25 0d 01 92 45 20 | 20 20 20 44 53 25 3d a4 |Tg%...E |   DS%=.|
|000029b0| 44 53 74 72 75 63 74 28 | 53 25 29 20 20 20 20 20 |DStruct(|S%)     |
|000029c0| 20 20 3a f4 20 47 69 76 | 65 20 65 76 65 72 79 20 |  :. Giv|e every |
|000029d0| 6d 65 6d 62 65 72 20 61 | 20 64 69 73 70 6c 61 79 |member a| display|
|000029e0| 20 73 74 72 75 63 74 2e | 0d 01 93 37 20 20 20 20 | struct.|...7    |
|000029f0| 44 53 25 21 44 53 78 25 | 3d 49 6e 66 69 6e 69 74 |DS%!DSx%|=Infinit|
|00002a00| 79 25 20 20 20 20 20 20 | 3a f4 20 45 76 65 72 79 |y%      |:. Every|
|00002a10| 6f 6e 65 20 6f 66 66 20 | 73 63 72 65 65 6e 2e 0d |one off |screen..|
|00002a20| 01 94 1b 20 20 20 20 44 | 53 25 21 44 53 79 25 3d |...    D|S%!DSy%=|
|00002a30| 2d 49 6e 66 69 6e 69 74 | 79 25 0d 01 95 07 20 20 |-Infinit|y%....  |
|00002a40| cb 0d 01 96 13 20 20 53 | 25 3d 53 25 21 4f 62 4e |.....  S|%=S%!ObN|
|00002a50| 65 78 74 25 0d 01 97 0d | 20 20 c8 95 20 53 25 3d |ext%....|  .. S%=|
|00002a60| 30 0d 01 98 37 20 20 20 | 20 e7 20 a4 47 65 74 53 |0...7   | . .GetS|
|00002a70| 75 62 28 52 6f 6f 74 25 | 2c 46 61 6d 54 67 25 2c |ub(Root%|,FamTg%,|
|00002a80| 50 25 29 20 53 25 3d 50 | 25 21 4f 62 53 75 62 73 |P%) S%=P|%!ObSubs|
|00002a90| 25 20 8b 20 53 25 3d 31 | 0d 01 99 07 20 20 ce 0d |% . S%=1|....  ..|
|00002aa0| 01 9a 05 ce 0d 01 9b 15 | c8 99 20 22 48 6f 75 72 |........|.. "Hour|
|00002ab0| 67 6c 61 73 73 5f 4f 6e | 22 0d 01 9c 25 f2 43 61 |glass_On|"...%.Ca|
|00002ac0| 6c 63 28 54 6f 70 43 68 | 69 6c 25 2c 30 2c 30 2c |lc(TopCh|il%,0,0,|
|00002ad0| 7a 2c 78 4d 69 6e 25 2c | 78 4d 61 78 25 29 0d 01 |z,xMin%,|xMax%)..|
|00002ae0| 9d 16 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |.... "Ho|urglass_|
|00002af0| 4f 66 66 22 0d 01 9e 15 | f2 4d 61 78 28 78 4d 61 |Off"....|.Max(xMa|
|00002b00| 78 25 2c 4d 69 6e 57 25 | 29 0d 01 9f 0d 78 4d 61 |x%,MinW%|)....xMa|
|00002b10| 78 25 2b 3d 32 30 0d 01 | a0 05 e1 0d 01 a1 04 0d |x%+=20..|........|
|00002b20| 01 a2 3b f4 20 43 61 6c | 63 75 6c 61 74 65 20 70 |..;. Cal|culate p|
|00002b30| 6f 73 69 74 69 6f 6e 20 | 6f 66 20 70 65 72 73 6f |osition |of perso|
|00002b40| 6e 20 70 6f 69 6e 74 65 | 64 20 74 6f 20 62 79 20 |n pointe|d to by |
|00002b50| 43 68 69 6c 25 2c 20 68 | 69 73 0d 01 a3 3a f4 20 |Chil%, h|is...:. |
|00002b60| 73 70 6f 75 73 65 73 20 | 61 6e 64 20 64 65 73 63 |spouses |and desc|
|00002b70| 65 6e 64 61 6e 74 73 2e | 20 20 59 25 20 69 73 20 |endants.|  Y% is |
|00002b80| 68 69 73 20 74 6f 70 2e | 20 20 52 65 74 75 72 6e |his top.|  Return|
|00002b90| 20 68 69 73 0d 01 a4 38 | f4 20 63 65 6e 74 72 65 | his...8|. centre|
|00002ba0| 20 61 6e 64 20 6c 65 66 | 74 20 61 6e 64 20 72 69 | and lef|t and ri|
|00002bb0| 67 68 74 20 6f 66 20 65 | 76 65 72 79 74 68 69 6e |ght of e|verythin|
|00002bc0| 67 20 62 65 6c 6f 77 20 | 68 69 6d 2e 0d 01 a5 04 |g below |him.....|
|00002bd0| 0d 01 a6 2d dd 20 f2 43 | 61 6c 63 28 43 68 69 6c |...-. .C|alc(Chil|
|00002be0| 25 2c 59 25 2c 47 65 6e | 25 2c f8 20 58 25 2c f8 |%,Y%,Gen|%,. X%,.|
|00002bf0| 20 58 4c 54 25 2c f8 20 | 58 52 54 25 29 0d 01 a7 | XLT%,. |XRT%)...|
|00002c00| 42 ea 20 44 53 25 2c 44 | 6f 6e 65 25 2c 49 25 2c |B. DS%,D|one%,I%,|
|00002c10| 46 4f 25 2c 50 25 2c 53 | 4e 25 2c 57 25 2c 58 31 |FO%,P%,S|N%,W%,X1|
|00002c20| 25 2c 58 46 25 2c 58 52 | 25 2c 58 4c 46 25 2c 58 |%,XF%,XR|%,XLF%,X|
|00002c30| 52 46 25 2c 4f 78 4d 61 | 78 25 28 29 2c 4e 24 0d |RF%,OxMa|x%(),N$.|
|00002c40| 01 a8 15 de 20 4f 78 4d | 61 78 25 28 4d 61 78 47 |.... OxM|ax%(MaxG|
|00002c50| 65 6e 25 29 0d 01 a9 13 | 50 25 3d 43 68 69 6c 25 |en%)....|P%=Chil%|
|00002c60| 21 4f 62 56 61 6c 25 0d | 01 aa 17 e7 20 50 25 3d |!ObVal%.|.... P%=|
|00002c70| 30 20 85 20 31 2c 22 46 | 4e 43 61 6c 63 22 0d 01 |0 . 1,"F|NCalc"..|
|00002c80| ab 1e 44 53 25 3d 4f 62 | 56 61 6c 25 21 28 43 68 |..DS%=Ob|Val%!(Ch|
|00002c90| 69 6c 25 21 4f 62 53 75 | 62 73 25 29 0d 01 ac 32 |il%!ObSu|bs%)...2|
|00002ca0| e7 20 44 53 25 21 44 53 | 79 25 3e 59 25 20 58 25 |. DS%!DS|y%>Y% X%|
|00002cb0| 3d 78 4d 61 78 25 28 47 | 65 6e 25 29 3a 58 4c 54 |=xMax%(G|en%):XLT|
|00002cc0| 25 3d 58 25 3a 58 52 54 | 25 3d 58 25 3a e1 0d 01 |%=X%:XRT|%=X%:...|
|00002cd0| ad 1b 44 53 25 21 44 53 | 79 25 3d 59 25 2d 4c 69 |..DS%!DS|y%=Y%-Li|
|00002ce0| 6e 65 48 65 69 67 68 74 | 25 0d 01 ae 1b 4e 24 3d |neHeight|%....N$=|
|00002cf0| a4 53 68 6f 77 4e 61 6d | 65 28 50 25 2c 47 65 6e |.ShowNam|e(P%,Gen|
|00002d00| 25 3d 30 29 0d 01 af 2e | f2 46 72 65 65 28 44 53 |%=0)....|.Free(DS|
|00002d10| 25 21 44 53 4e 61 6d 65 | 25 29 3a 44 53 25 21 44 |%!DSName|%):DS%!D|
|00002d20| 53 4e 61 6d 65 25 3d a4 | 53 74 72 69 6e 67 28 4e |SName%=.|String(N|
|00002d30| 24 29 0d 01 b0 11 57 25 | 3d a4 57 69 64 74 68 28 |$)....W%|=.Width(|
|00002d40| 4e 24 29 0d 01 b1 3c e7 | 20 53 68 6f 77 44 61 74 |N$)...<.| ShowDat|
|00002d50| 65 73 25 20 f2 4d 61 78 | 28 57 25 2c a4 57 69 64 |es% .Max|(W%,.Wid|
|00002d60| 74 68 28 a4 44 61 74 65 | 73 28 50 25 29 29 29 3a |th(.Date|s(P%))):|
|00002d70| 59 25 2d 3d 4c 69 6e 65 | 48 65 69 67 68 74 25 0d |Y%-=Line|Height%.|
|00002d80| 01 b2 23 59 25 2d 3d 34 | 2a 4c 69 6e 65 48 65 69 |..#Y%-=4|*LineHei|
|00002d90| 67 68 74 25 3a e7 20 57 | 25 20 57 25 2b 3d 47 61 |ght%:. W|% W%+=Ga|
|00002da0| 70 25 0d 01 b3 12 f2 4d | 69 6e 28 79 4d 69 6e 25 |p%.....M|in(yMin%|
|00002db0| 2c 59 25 29 0d 01 b4 47 | 49 25 3d 30 3a 46 4f 25 |,Y%)...G|I%=0:FO%|
|00002dc0| 3d 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=0      |        |
|00002dd0| 20 20 20 20 20 20 3a f4 | 20 31 73 74 20 6f 66 20 |      :.| 1st of |
|00002de0| 3e 31 20 73 70 6f 75 73 | 65 73 20 69 73 20 23 31 |>1 spous|es is #1|
|00002df0| 20 65 6c 73 65 20 6e 6f | 20 23 2e 0d 01 b5 3c e7 | else no| #....<.|
|00002e00| 20 a4 47 65 74 53 75 62 | 28 50 25 2c 46 61 6d 73 | .GetSub|(P%,Fams|
|00002e10| 54 67 25 2c 46 4f 25 29 | 20 e7 20 a4 47 65 74 53 |Tg%,FO%)| . .GetS|
|00002e20| 75 62 28 50 25 2c 46 61 | 6d 73 54 67 25 2c 46 4f |ub(P%,Fa|msTg%,FO|
|00002e30| 25 29 20 49 25 3d 31 0d | 01 b6 13 44 53 25 21 44 |%) I%=1.|...DS%!D|
|00002e40| 53 53 70 4e 75 6d 25 3d | 49 25 0d 01 b7 1c 4f 78 |SSpNum%=|I%....Ox|
|00002e50| 4d 61 78 25 28 29 3d 78 | 4d 61 78 25 28 29 3a 44 |Max%()=x|Max%():D|
|00002e60| 6f 6e 65 25 3d b9 0d 01 | b8 05 f5 0d 01 b9 2c 20 |one%=...|......, |
|00002e70| 20 f4 20 49 66 20 6e 6f | 20 66 61 6d 69 6c 69 65 | . If no| familie|
|00002e80| 73 20 70 6c 61 63 65 20 | 61 67 61 69 6e 73 74 20 |s place |against |
|00002e90| 62 6f 72 64 65 72 2e 0d | 01 ba 41 20 20 58 25 3d |border..|..A  X%=|
|00002ea0| 4f 78 4d 61 78 25 28 47 | 65 6e 25 29 3a 58 52 25 |OxMax%(G|en%):XR%|
|00002eb0| 3d 58 25 2b 57 25 20 20 | 20 3a f4 20 50 25 27 73 |=X%+W%  | :. P%'s|
|00002ec0| 20 62 6f 72 64 65 72 73 | 20 69 66 20 6e 6f 20 66 | borders| if no f|
|00002ed0| 61 6d 69 6c 69 65 73 2e | 0d 01 bb 16 20 20 58 4c |amilies.|....  XL|
|00002ee0| 54 25 3d 58 25 3a 58 52 | 54 25 3d 58 52 25 0d 01 |T%=X%:XR|T%=XR%..|
|00002ef0| bc 3e 20 20 58 25 2b 3d | 57 25 20 81 20 32 20 20 |.>  X%+=|W% . 2  |
|00002f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |        |      :.|
|00002f10| 20 50 25 27 73 20 63 65 | 6e 74 72 65 20 69 66 20 | P%'s ce|ntre if |
|00002f20| 6e 6f 20 66 61 6d 69 6c | 69 65 73 2e 0d 01 bd 19 |no famil|ies.....|
|00002f30| 20 20 58 31 25 3d 30 3a | 58 46 25 3d 58 31 25 3a |  X1%=0:|XF%=X1%:|
|00002f40| 46 4f 25 3d 30 0d 01 be | 20 20 20 c8 95 20 a4 47 |FO%=0...|   .. .G|
|00002f50| 65 74 53 75 62 28 50 25 | 2c 46 61 6d 73 54 67 25 |etSub(P%|,FamsTg%|
|00002f60| 2c 46 4f 25 29 0d 01 bf | 35 20 20 20 20 f2 43 61 |,FO%)...|5    .Ca|
|00002f70| 6c 63 46 61 6d 28 50 25 | 2c 46 4f 25 21 4f 62 56 |lcFam(P%|,FO%!ObV|
|00002f80| 61 6c 25 2c 59 25 2c 47 | 65 6e 25 2c 58 46 25 2c |al%,Y%,G|en%,XF%,|
|00002f90| 58 4c 46 25 2c 58 52 46 | 25 29 0d 01 c0 27 20 20 |XLF%,XRF|%)...'  |
|00002fa0| 20 20 e7 20 58 31 25 3d | 30 20 58 31 25 3d 58 46 |  . X1%=|0 X1%=XF|
|00002fb0| 25 3a f2 4d 69 6e 28 58 | 4c 54 25 2c 58 4c 46 25 |%:.Min(X|LT%,XLF%|
|00002fc0| 29 0d 01 c1 17 20 20 20 | 20 f2 4d 61 78 28 58 52 |)....   | .Max(XR|
|00002fd0| 54 25 2c 58 52 46 25 29 | 0d 01 c2 07 20 20 ce 0d |T%,XRF%)|....  ..|
|00002fe0| 01 c3 0d 20 20 e7 20 58 | 31 25 20 8c 0d 01 c4 31 |...  . X|1% ....1|
|00002ff0| 20 20 20 20 58 46 25 3d | 28 58 31 25 2b 58 46 25 |    XF%=|(X1%+XF%|
|00003000| 29 20 81 20 32 3a 44 6f | 6e 65 25 3d 58 46 25 3e |) . 2:Do|ne%=XF%>|
|00003010| 3d 58 25 20 84 20 ac 20 | 44 6f 6e 65 25 0d 01 c5 |=X% . . |Done%...|
|00003020| 11 20 20 20 20 e7 20 44 | 6f 6e 65 25 20 8c 0d 01 |.    . D|one% ...|
|00003030| c6 3d 20 20 20 20 20 20 | f4 20 49 66 20 66 61 6d |.=      |. If fam|
|00003040| 69 6c 69 65 73 20 74 6f | 20 72 69 67 68 74 20 6f |ilies to| right o|
|00003050| 66 20 50 25 2c 20 63 65 | 6e 74 72 65 20 6f 76 65 |f P%, ce|ntre ove|
|00003060| 72 20 66 61 6d 69 6c 69 | 65 73 2e 0d 01 c7 1f 20 |r famili|es..... |
|00003070| 20 20 20 20 20 58 25 3d | 58 46 25 3a 58 52 25 3d |     X%=|XF%:XR%=|
|00003080| 58 46 25 2b 57 25 20 81 | 20 32 0d 01 c8 09 20 20 |XF%+W% .| 2....  |
|00003090| 20 20 cc 0d 01 c9 49 20 | 20 20 20 20 20 f4 20 49 |  ....I |     . I|
|000030a0| 66 20 50 25 20 74 6f 20 | 72 69 67 68 74 20 6f 66 |f P% to |right of|
|000030b0| 20 66 61 6d 69 6c 69 65 | 73 2c 20 73 68 69 66 74 | familie|s, shift|
|000030c0| 20 64 65 73 63 65 6e 64 | 61 6e 74 73 27 20 62 6f | descend|ants' bo|
|000030d0| 72 64 65 72 73 20 72 69 | 67 68 74 2e 0d 01 ca 22 |rders ri|ght...."|
|000030e0| 20 20 20 20 20 20 78 4d | 61 78 25 28 29 3d 4f 78 |      xM|ax%()=Ox|
|000030f0| 4d 61 78 25 28 29 3a 58 | 25 2d 3d 58 46 25 0d 01 |Max%():X|%-=XF%..|
|00003100| cb 2d 20 20 20 20 20 20 | e3 20 49 25 3d 47 65 6e |.-      |. I%=Gen|
|00003110| 25 20 b8 20 4d 61 78 47 | 65 6e 25 3a 78 4d 61 78 |% . MaxG|en%:xMax|
|00003120| 25 28 49 25 29 2b 3d 58 | 25 3a ed 0d 01 cc 09 20 |%(I%)+=X|%:..... |
|00003130| 20 20 20 cd 0d 01 cd 07 | 20 20 cd 0d 01 ce 0b fd |   .....|  ......|
|00003140| 20 44 6f 6e 65 25 0d 01 | cf 19 f2 4d 61 78 28 78 | Done%..|...Max(x|
|00003150| 4d 61 78 25 28 47 65 6e | 25 29 2c 58 52 25 29 0d |Max%(Gen|%),XR%).|
|00003160| 01 d0 31 44 53 25 21 44 | 53 78 25 3d 58 25 3a 44 |..1DS%!D|Sx%=X%:D|
|00003170| 53 25 21 44 53 78 6d 69 | 6e 25 3d 58 4c 54 25 3a |S%!DSxmi|n%=XLT%:|
|00003180| 44 53 25 21 44 53 78 6d | 61 78 25 3d 58 52 54 25 |DS%!DSxm|ax%=XRT%|
|00003190| 0d 01 d1 05 e1 0d 01 d2 | 04 0d 01 d3 39 f4 20 43 |........|....9. C|
|000031a0| 61 6c 63 75 6c 61 74 65 | 20 70 6f 73 69 74 69 6f |alculate| positio|
|000031b0| 6e 73 20 6f 66 20 54 6f | 70 25 27 73 20 73 70 6f |ns of To|p%'s spo|
|000031c0| 75 73 65 20 28 42 6f 74 | 25 29 20 69 6e 20 46 61 |use (Bot|%) in Fa|
|000031d0| 6d 25 0d 01 d4 35 f4 20 | 61 6e 64 20 74 68 65 69 |m%...5. |and thei|
|000031e0| 72 20 6b 69 64 73 2e 20 | 20 52 65 74 75 72 6e 20 |r kids. | Return |
|000031f0| 63 65 6e 74 72 65 20 6f | 66 20 42 6f 74 25 20 61 |centre o|f Bot% a|
|00003200| 6e 64 20 6c 65 66 74 0d | 01 d5 31 f4 20 61 6e 64 |nd left.|..1. and|
|00003210| 20 72 69 67 68 74 20 6f | 66 20 42 6f 74 25 2b 6b | right o|f Bot%+k|
|00003220| 69 64 73 2e 20 20 59 25 | 20 69 73 20 74 6f 70 20 |ids.  Y%| is top |
|00003230| 6f 66 20 6b 69 64 73 2e | 0d 01 d6 04 0d 01 d7 34 |of kids.|.......4|
|00003240| dd 20 f2 43 61 6c 63 46 | 61 6d 28 54 6f 70 25 2c |. .CalcF|am(Top%,|
|00003250| 46 61 6d 25 2c 59 25 2c | 47 65 6e 25 2c f8 20 58 |Fam%,Y%,|Gen%,. X|
|00003260| 25 2c f8 20 58 4c 54 25 | 2c f8 20 58 52 54 25 29 |%,. XLT%|,. XRT%)|
|00003270| 0d 01 d8 48 ea 20 42 6f | 74 25 2c 42 6f 74 52 65 |...H. Bo|t%,BotRe|
|00003280| 66 25 2c 43 4f 25 2c 44 | 6f 6e 65 25 2c 44 53 25 |f%,CO%,D|one%,DS%|
|00003290| 2c 49 25 2c 4e 24 2c 57 | 25 2c 58 31 25 2c 58 43 |,I%,N$,W|%,X1%,XC|
|000032a0| 25 2c 58 52 25 2c 58 4c | 46 25 2c 58 52 46 25 2c |%,XR%,XL|F%,XRF%,|
|000032b0| 4f 78 4d 61 78 25 28 29 | 0d 01 d9 15 de 20 4f 78 |OxMax%()|..... Ox|
|000032c0| 4d 61 78 25 28 4d 61 78 | 47 65 6e 25 29 0d 01 da |Max%(Max|Gen%)...|
|000032d0| 0d 42 6f 74 52 65 66 25 | 3d 30 0d 01 db 25 e7 20 |.BotRef%|=0...%. |
|000032e0| a4 47 65 74 53 75 62 28 | 46 61 6d 25 2c 48 75 73 |.GetSub(|Fam%,Hus|
|000032f0| 62 54 67 25 2c 42 6f 74 | 52 65 66 25 29 20 8c 0d |bTg%,Bot|Ref%) ..|
|00003300| 01 dc 45 20 20 e7 20 42 | 6f 74 52 65 66 25 21 4f |..E  . B|otRef%!O|
|00003310| 62 56 61 6c 25 3d 54 6f | 70 25 20 42 6f 74 52 65 |bVal%=To|p% BotRe|
|00003320| 66 25 3d 30 3a 7a 3d a4 | 47 65 74 53 75 62 28 46 |f%=0:z=.|GetSub(F|
|00003330| 61 6d 25 2c 57 69 66 65 | 54 67 25 2c 42 6f 74 52 |am%,Wife|Tg%,BotR|
|00003340| 65 66 25 29 0d 01 dd 05 | cd 0d 01 de 0f e7 20 42 |ef%)....|...... B|
|00003350| 6f 74 52 65 66 25 20 8c | 0d 01 df 3b 20 20 42 6f |otRef% .|...;  Bo|
|00003360| 74 25 3d 42 6f 74 52 65 | 66 25 21 4f 62 56 61 6c |t%=BotRe|f%!ObVal|
|00003370| 25 3a 4e 24 3d a4 4e 61 | 6d 65 28 42 6f 74 25 29 |%:N$=.Na|me(Bot%)|
|00003380| 3a 57 25 3d a4 57 69 64 | 74 68 28 4e 24 29 2b 47 |:W%=.Wid|th(N$)+G|
|00003390| 61 70 25 0d 01 e0 05 cc | 0d 01 e1 10 20 20 4e 24 |ap%.....|....  N$|
|000033a0| 3d 22 22 3a 57 25 3d 30 | 0d 01 e2 05 cd 0d 01 e3 |="":W%=0|........|
|000033b0| 1c 4f 78 4d 61 78 25 28 | 29 3d 78 4d 61 78 25 28 |.OxMax%(|)=xMax%(|
|000033c0| 29 3a 44 6f 6e 65 25 3d | b9 0d 01 e4 05 f5 0d 01 |):Done%=|........|
|000033d0| e5 34 20 20 58 25 3d 78 | 4d 61 78 25 28 47 65 6e |.4  X%=x|Max%(Gen|
|000033e0| 25 29 3a 58 52 25 3d 58 | 25 2b 57 25 20 20 20 20 |%):XR%=X|%+W%    |
|000033f0| 3a f4 20 57 69 66 65 27 | 73 20 62 6f 72 64 65 72 |:. Wife'|s border|
|00003400| 73 2e 0d 01 e6 16 20 20 | 58 4c 54 25 3d 58 25 3a |s.....  |XLT%=X%:|
|00003410| 58 52 54 25 3d 58 52 25 | 0d 01 e7 3d 20 20 58 25 |XRT%=XR%|...=  X%|
|00003420| 2b 3d 57 25 20 81 20 32 | 20 20 20 20 20 20 20 20 |+=W% . 2|        |
|00003430| 20 20 20 20 20 20 20 20 | 3a f4 20 43 65 6e 74 72 |        |:. Centr|
|00003440| 65 20 6f 66 20 77 69 66 | 65 20 69 66 20 6e 6f 20 |e of wif|e if no |
|00003450| 6b 69 64 73 2e 0d 01 e8 | 11 20 20 58 31 25 3d 30 |kids....|.  X1%=0|
|00003460| 3a 43 4f 25 3d 30 0d 01 | e9 16 20 20 e7 20 47 65 |:CO%=0..|..  . Ge|
|00003470| 6e 25 3c 4d 61 78 47 65 | 6e 25 20 8c 0d 01 ea 24 |n%<MaxGe|n% ....$|
|00003480| 20 20 20 20 c8 95 20 a4 | 47 65 74 53 75 62 28 46 |    .. .|GetSub(F|
|00003490| 61 6d 25 2c 43 68 69 6c | 54 67 25 2c 43 4f 25 29 |am%,Chil|Tg%,CO%)|
|000034a0| 0d 01 eb 2c 20 20 20 20 | 20 20 f2 43 61 6c 63 28 |...,    |  .Calc(|
|000034b0| 43 4f 25 2c 59 25 2c 47 | 65 6e 25 2b 31 2c 58 43 |CO%,Y%,G|en%+1,XC|
|000034c0| 25 2c 58 4c 46 25 2c 58 | 52 46 25 29 0d 01 ec 29 |%,XLF%,X|RF%)...)|
|000034d0| 20 20 20 20 20 20 e7 20 | 58 31 25 3d 30 20 58 31 |      . |X1%=0 X1|
|000034e0| 25 3d 58 43 25 3a f2 4d | 69 6e 28 58 4c 54 25 2c |%=XC%:.M|in(XLT%,|
|000034f0| 58 4c 46 25 29 0d 01 ed | 19 20 20 20 20 20 20 f2 |XLF%)...|.      .|
|00003500| 4d 61 78 28 58 52 54 25 | 2c 58 52 46 25 29 0d 01 |Max(XRT%|,XRF%)..|
|00003510| ee 09 20 20 20 20 ce 0d | 01 ef 07 20 20 cd 0d 01 |..    ..|...  ...|
|00003520| f0 0d 20 20 e7 20 58 31 | 25 20 8c 0d 01 f1 32 20 |..  . X1|% ....2 |
|00003530| 20 20 20 58 43 25 3d 28 | 58 31 25 2b 58 43 25 29 |   XC%=(|X1%+XC%)|
|00003540| 20 81 20 32 20 20 20 20 | 20 20 20 3a f4 20 43 65 | . 2    |   :. Ce|
|00003550| 6e 74 72 65 20 6f 66 20 | 6b 69 64 73 2e 0d 01 f2 |ntre of |kids....|
|00003560| 1f 20 20 20 20 44 6f 6e | 65 25 3d 58 43 25 3e 3d |.    Don|e%=XC%>=|
|00003570| 58 25 20 84 20 ac 20 44 | 6f 6e 65 25 0d 01 f3 11 |X% . . D|one%....|
|00003580| 20 20 20 20 e7 20 44 6f | 6e 65 25 20 8c 0d 01 f4 |    . Do|ne% ....|
|00003590| 3d 20 20 20 20 20 20 f4 | 20 49 66 20 6b 69 64 73 |=      .| If kids|
|000035a0| 20 74 6f 20 72 69 67 68 | 74 20 6f 66 20 77 69 66 | to righ|t of wif|
|000035b0| 65 20 2d 20 63 65 6e 74 | 72 65 20 77 69 66 65 20 |e - cent|re wife |
|000035c0| 6f 76 65 72 20 6b 69 64 | 73 2e 0d 01 f5 1e 20 20 |over kid|s.....  |
|000035d0| 20 20 20 20 58 25 3d 58 | 43 25 3a 58 52 25 3d 58 |    X%=X|C%:XR%=X|
|000035e0| 25 2b 57 25 20 81 20 32 | 0d 01 f6 09 20 20 20 20 |%+W% . 2|....    |
|000035f0| cc 0d 01 f7 45 20 20 20 | 20 20 20 f4 20 57 69 66 |....E   |   . Wif|
|00003600| 65 20 74 6f 20 72 69 67 | 68 74 20 6f 66 20 6b 69 |e to rig|ht of ki|
|00003610| 64 73 20 2d 20 73 68 69 | 66 74 20 64 65 73 63 65 |ds - shi|ft desce|
|00003620| 6e 64 61 6e 74 73 27 20 | 62 6f 72 64 65 72 73 20 |ndants' |borders |
|00003630| 72 69 67 68 74 2e 0d 01 | f8 22 20 20 20 20 20 20 |right...|."      |
|00003640| 78 4d 61 78 25 28 29 3d | 4f 78 4d 61 78 25 28 29 |xMax%()=|OxMax%()|
|00003650| 3a 58 25 2d 3d 58 43 25 | 0d 01 f9 2f 20 20 20 20 |:X%-=XC%|.../    |
|00003660| 20 20 e3 20 49 25 3d 47 | 65 6e 25 2b 31 20 b8 20 |  . I%=G|en%+1 . |
|00003670| 4d 61 78 47 65 6e 25 3a | 78 4d 61 78 25 28 49 25 |MaxGen%:|xMax%(I%|
|00003680| 29 2b 3d 58 25 3a ed 0d | 01 fa 09 20 20 20 20 cd |)+=X%:..|...    .|
|00003690| 0d 01 fb 2a 20 20 cc 20 | 20 20 20 20 20 20 20 20 |...*  . |        |
|000036a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|000036b0| f4 20 4e 6f 20 6b 69 64 | 73 2e 0d 01 fc 18 20 20 |. No kid|s.....  |
|000036c0| 20 20 e7 20 42 6f 74 52 | 65 66 25 3d 30 20 58 25 |  . BotR|ef%=0 X%|
|000036d0| 3d 30 0d 01 fd 07 20 20 | cd 0d 01 fe 0b fd 20 44 |=0....  |...... D|
|000036e0| 6f 6e 65 25 0d 01 ff 79 | e7 20 42 6f 74 52 65 66 |one%...y|. BotRef|
|000036f0| 25 20 44 53 25 3d 4f 62 | 56 61 6c 25 21 28 42 6f |% DS%=Ob|Val%!(Bo|
|00003700| 74 52 65 66 25 21 4f 62 | 53 75 62 73 25 29 3a 44 |tRef%!Ob|Subs%):D|
|00003710| 53 25 21 44 53 78 25 3d | 58 25 3a 44 53 25 21 44 |S%!DSx%=|X%:DS%!D|
|00003720| 53 79 25 3d 59 25 2b 4c | 69 6e 65 48 65 69 67 68 |Sy%=Y%+L|ineHeigh|
|00003730| 74 25 3a f2 46 72 65 65 | 28 44 53 25 21 44 53 4e |t%:.Free|(DS%!DSN|
|00003740| 61 6d 65 25 29 3a 44 53 | 25 21 44 53 4e 61 6d 65 |ame%):DS|%!DSName|
|00003750| 25 3d a4 53 74 72 69 6e | 67 28 4e 24 29 0d 02 00 |%=.Strin|g(N$)...|
|00003760| 13 78 4d 61 78 25 28 47 | 65 6e 25 29 3d 58 52 25 |.xMax%(G|en%)=XR%|
|00003770| 0d 02 01 05 e1 0d 02 02 | 04 0d 02 03 1c dd 20 a4 |........|...... .|
|00003780| 53 68 6f 77 4e 61 6d 65 | 28 50 25 2c 53 68 6f 77 |ShowName|(P%,Show|
|00003790| 46 61 6d 25 29 0d 02 04 | 14 ea 20 49 25 2c 4a 25 |Fam%)...|.. I%,J%|
|000037a0| 2c 46 24 2c 47 24 2c 4e | 24 0d 02 05 1b e7 20 50 |,F$,G$,N|$..... P|
|000037b0| 25 3d 30 20 85 20 31 2c | 22 46 4e 53 68 6f 77 4e |%=0 . 1,|"FNShowN|
|000037c0| 61 6d 65 22 0d 02 06 10 | 4e 24 3d a4 4e 61 6d 65 |ame"....|N$=.Name|
|000037d0| 28 50 25 29 0d 02 07 25 | e7 20 53 68 6f 77 46 61 |(P%)...%|. ShowFa|
|000037e0| 6d 69 6c 79 4e 61 6d 65 | 25 20 84 20 53 68 6f 77 |milyName|% . Show|
|000037f0| 46 61 6d 25 20 8c 3d 4e | 24 0d 02 08 3e f4 20 48 |Fam% .=N|$...>. H|
|00003800| 69 64 65 20 66 61 6d 69 | 6c 79 20 6e 61 6d 65 20 |ide fami|ly name |
|00003810| 69 66 20 73 61 6d 65 20 | 61 73 20 66 61 74 68 65 |if same |as fathe|
|00003820| 72 27 73 20 61 6e 64 20 | 66 61 74 68 65 72 20 76 |r's and |father v|
|00003830| 69 73 69 62 6c 65 2e 0d | 02 09 20 46 24 3d a4 46 |isible..|.. F$=.F|
|00003840| 61 6d 4e 61 6d 65 28 4e | 24 29 3a e7 20 46 24 3d |amName(N|$):. F$=|
|00003850| 22 22 20 8c 3d 4e 24 0d | 02 0a 1e 49 25 3d a4 46 |"" .=N$.|...I%=.F|
|00003860| 61 74 68 65 72 28 50 25 | 29 3a e7 20 49 25 3d 30 |ather(P%|):. I%=0|
|00003870| 20 8c 3d 4e 24 0d 02 0b | 27 47 24 3d a4 46 61 6d | .=N$...|'G$=.Fam|
|00003880| 4e 61 6d 65 28 a4 4e 61 | 6d 65 28 49 25 29 29 3a |Name(.Na|me(I%)):|
|00003890| e7 20 47 24 3d 22 22 20 | 8c 3d 4e 24 0d 02 0c 11 |. G$="" |.=N$....|
|000038a0| e7 20 47 24 3c 3e 46 24 | 20 8c 3d 4e 24 0d 02 0d |. G$<>F$| .=N$...|
|000038b0| 27 4a 25 3d 30 3a f5 20 | 49 25 3d 4a 25 3a 4a 25 |'J%=0:. |I%=J%:J%|
|000038c0| 3d a7 4e 24 2c 46 24 2c | 49 25 2b 31 29 3a fd 20 |=.N$,F$,|I%+1):. |
|000038d0| 4a 25 3d 30 0d 02 0e 25 | 4a 25 3d 49 25 2b a9 28 |J%=0...%|J%=I%+.(|
|000038e0| 46 24 29 3a e7 20 c1 4e | 24 2c 4a 25 2c 31 29 3d |F$):. .N|$,J%,1)=|
|000038f0| 22 2f 22 20 4a 25 2b 3d | 31 0d 02 0f 16 3d c0 4e |"/" J%+=|1....=.N|
|00003900| 24 2c 49 25 2d 32 29 2b | c1 4e 24 2c 4a 25 29 0d |$,I%-2)+|.N$,J%).|
|00003910| 02 10 04 0d 02 11 10 dd | 20 a4 57 69 64 74 68 28 |........| .Width(|
|00003920| 53 24 29 0d 02 12 1f e7 | 20 ac 20 55 73 65 46 6f |S$).....| . UseFo|
|00003930| 6e 74 25 20 8c 3d 43 68 | 61 72 57 25 2a a9 28 53 |nt% .=Ch|arW%*.(S|
|00003940| 24 29 0d 02 13 08 ea 20 | 57 25 0d 02 14 3e c8 99 |$)..... |W%...>..|
|00003950| 20 53 74 72 69 6e 67 57 | 69 64 74 68 25 2c 2c 53 | StringW|idth%,,S|
|00003960| 24 2c 49 6e 66 69 6e 69 | 74 79 25 2c 49 6e 66 69 |$,Infini|ty%,Infi|
|00003970| 6e 69 74 79 25 2c 2d 31 | 2c 49 6e 66 69 6e 69 74 |nity%,-1|,Infinit|
|00003980| 79 25 20 b8 2c 2c 57 25 | 0d 02 15 13 3d 57 25 20 |y% .,,W%|....=W% |
|00003990| 81 20 6d 50 74 50 65 72 | 4f 53 25 0d 02 16 04 0d |. mPtPer|OS%.....|
|000039a0| 02 17 48 f4 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..H. ===|========|
|000039b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 20 44 |========|====== D|
|000039c0| 69 73 70 6c 61 79 20 74 | 72 65 65 20 3d 3d 3d 3d |isplay t|ree ====|
|000039d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000039e0| 3d 3d 3d 3d 3d 3d 3d 0d | 02 18 04 0d 02 19 4e f4 |=======.|......N.|
|000039f0| 20 44 69 73 70 6c 61 79 | 20 74 72 65 65 20 73 74 | Display| tree st|
|00003a00| 61 72 74 69 6e 67 20 61 | 74 20 70 65 72 73 6f 6e |arting a|t person|
|00003a10| 20 70 6f 69 6e 74 65 64 | 20 74 6f 20 62 79 20 54 | pointed| to by T|
|00003a20| 6f 70 43 68 69 6c 25 20 | 61 74 20 70 72 65 2d 63 |opChil% |at pre-c|
|00003a30| 61 6c 63 75 6c 61 74 65 | 64 0d 02 1a 4c f4 20 77 |alculate|d...L. w|
|00003a40| 6f 72 6b 20 63 6f 6f 72 | 64 73 2e 20 20 78 4d 69 |ork coor|ds.  xMi|
|00003a50| 6e 25 2e 2e 79 4d 61 78 | 25 20 69 73 20 76 69 73 |n%..yMax|% is vis|
|00003a60| 69 62 6c 65 20 77 6f 72 | 6b 20 72 65 63 74 61 6e |ible wor|k rectan|
|00003a70| 67 6c 65 2e 20 20 47 6c | 6f 62 61 6c 73 20 58 57 |gle.  Gl|obals XW|
|00003a80| 25 2c 59 57 25 0d 02 1b | 49 f4 20 63 6f 6e 74 61 |%,YW%...|I. conta|
|00003a90| 69 6e 20 74 68 65 20 73 | 63 72 65 65 6e 20 63 6f |in the s|creen co|
|00003aa0| 6f 72 64 73 20 6f 66 20 | 74 68 65 20 77 6f 72 6b |ords of |the work|
|00003ab0| 20 61 72 65 61 20 6f 72 | 69 67 69 6e 20 77 68 69 | area or|igin whi|
|00003ac0| 63 68 20 69 73 20 61 64 | 64 65 64 20 74 6f 0d 02 |ch is ad|ded to..|
|00003ad0| 1c 4b f4 20 77 6f 72 6b | 20 63 6f 6f 72 64 73 20 |.K. work| coords |
|00003ae0| 66 6f 72 20 70 6c 6f 74 | 74 69 6e 67 2e 20 20 54 |for plot|ting.  T|
|00003af0| 68 65 73 65 20 72 6f 75 | 74 69 6e 65 73 20 61 72 |hese rou|tines ar|
|00003b00| 65 20 61 6c 73 6f 20 75 | 73 65 64 20 66 6f 72 20 |e also u|sed for |
|00003b10| 70 72 69 6e 74 69 6e 67 | 2e 0d 02 1d 04 0d 02 1e |printing|........|
|00003b20| 31 dd 20 f2 44 69 73 70 | 6c 61 79 28 78 4d 69 6e |1. .Disp|lay(xMin|
|00003b30| 25 2c 79 4d 69 6e 25 2c | 78 4d 61 78 25 2c 79 4d |%,yMin%,|xMax%,yM|
|00003b40| 61 78 25 2c 50 72 69 6e | 74 69 6e 67 25 29 0d 02 |ax%,Prin|ting%)..|
|00003b50| 1f 1f e7 20 50 72 69 6e | 74 69 6e 67 25 20 f2 43 |... Prin|ting% .C|
|00003b60| 6f 6c 6f 75 72 28 42 6c | 61 63 6b 25 29 0d 02 20 |olour(Bl|ack%).. |
|00003b70| 4b f2 44 69 73 70 6c 61 | 79 49 6e 64 69 28 54 6f |K.Displa|yIndi(To|
|00003b80| 70 43 68 69 6c 25 2c 2d | 4c 69 6e 65 48 65 69 67 |pChil%,-|LineHeig|
|00003b90| 68 74 25 2c 78 4d 69 6e | 25 2c 79 4d 69 6e 25 2d |ht%,xMin|%,yMin%-|
|00003ba0| 4c 69 6e 65 48 65 69 67 | 68 74 25 2c 78 4d 61 78 |LineHeig|ht%,xMax|
|00003bb0| 25 2c 79 4d 61 78 25 29 | 0d 02 21 05 e1 0d 02 22 |%,yMax%)|..!...."|
|00003bc0| 04 0d 02 23 34 dd 20 f2 | 44 69 73 70 6c 61 79 49 |...#4. .|DisplayI|
|00003bd0| 6e 64 69 28 43 68 69 6c | 25 2c 59 25 2c 78 4d 69 |ndi(Chil|%,Y%,xMi|
|00003be0| 6e 25 2c 79 4d 69 6e 25 | 2c 78 4d 61 78 25 2c 79 |n%,yMin%|,xMax%,y|
|00003bf0| 4d 61 78 25 29 0d 02 24 | 40 ea 20 43 4f 25 2c 44 |Max%)..$|@. CO%,D|
|00003c00| 53 25 2c 46 25 2c 46 4f | 25 2c 48 25 2c 50 25 2c |S%,F%,FO|%,H%,P%,|
|00003c10| 53 25 2c 53 4c 25 2c 53 | 4e 25 2c 53 50 25 2c 53 |S%,SL%,S|N%,SP%,S|
|00003c20| 52 25 2c 58 50 25 2c 59 | 50 25 2c 58 31 25 2c 58 |R%,XP%,Y|P%,X1%,X|
|00003c30| 4d 25 2c 4e 24 0d 02 25 | 13 50 25 3d 43 68 69 6c |M%,N$..%|.P%=Chil|
|00003c40| 25 21 4f 62 56 61 6c 25 | 0d 02 26 1e 44 53 25 3d |%!ObVal%|..&.DS%=|
|00003c50| 4f 62 56 61 6c 25 21 28 | 43 68 69 6c 25 21 4f 62 |ObVal%!(|Chil%!Ob|
|00003c60| 53 75 62 73 25 29 0d 02 | 27 1a e7 20 44 53 25 21 |Subs%)..|'.. DS%!|
|00003c70| 44 53 78 6d 69 6e 25 3e | 3d 78 4d 61 78 25 20 e1 |DSxmin%>|=xMax% .|
|00003c80| 0d 02 28 1a e7 20 44 53 | 25 21 44 53 78 6d 61 78 |..(.. DS|%!DSxmax|
|00003c90| 25 3c 3d 78 4d 69 6e 25 | 20 e1 0d 02 29 1d 58 50 |%<=xMin%| ...).XP|
|00003ca0| 25 3d 44 53 25 21 44 53 | 78 25 3a 59 50 25 3d 44 |%=DS%!DS|x%:YP%=D|
|00003cb0| 53 25 21 44 53 79 25 0d | 02 2a 12 e7 20 59 50 25 |S%!DSy%.|.*.. YP%|
|00003cc0| 3c 3d 79 4d 69 6e 25 20 | e1 0d 02 2b 0f e7 20 59 |<=yMin% |...+.. Y|
|00003cd0| 50 25 3c 3e 59 25 20 e1 | 0d 02 2c 32 59 25 2d 3d |P%<>Y% .|..,2Y%-=|
|00003ce0| 34 2a 4c 69 6e 65 48 65 | 69 67 68 74 25 3a e7 20 |4*LineHe|ight%:. |
|00003cf0| 53 68 6f 77 44 61 74 65 | 73 25 20 59 25 2d 3d 4c |ShowDate|s% Y%-=L|
|00003d00| 69 6e 65 48 65 69 67 68 | 74 25 0d 02 2d 39 53 4e |ineHeigh|t%..-9SN|
|00003d10| 25 3d 44 53 25 21 44 53 | 53 70 4e 75 6d 25 20 20 |%=DS%!DS|SpNum%  |
|00003d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 31 |        |    :. 1|
|00003d30| 20 3d 3e 20 4e 75 6d 62 | 65 72 20 73 70 6f 75 73 | => Numb|er spous|
|00003d40| 65 73 2e 0d 02 2e 20 e7 | 20 ac 20 50 72 69 6e 74 |es.... .| . Print|
|00003d50| 69 6e 67 25 20 f2 53 65 | 78 43 6f 6c 6f 75 72 28 |ing% .Se|xColour(|
|00003d60| 50 25 29 0d 02 2f 25 f2 | 43 65 6e 74 72 65 28 24 |P%)../%.|Centre($|
|00003d70| 28 44 53 25 21 44 53 4e | 61 6d 65 25 29 2c 58 50 |(DS%!DSN|ame%),XP|
|00003d80| 25 2c 59 50 25 2c a3 29 | 0d 02 30 21 e7 20 ac 20 |%,YP%,.)|..0!. . |
|00003d90| 50 72 69 6e 74 69 6e 67 | 25 20 f2 43 6f 6c 6f 75 |Printing|% .Colou|
|00003da0| 72 28 42 6c 61 63 6b 25 | 29 0d 02 31 3a e7 20 53 |r(Black%|)..1:. S|
|00003db0| 68 6f 77 44 61 74 65 73 | 25 20 f2 43 65 6e 74 72 |howDates|% .Centr|
|00003dc0| 65 28 a4 44 61 74 65 73 | 28 50 25 29 2c 58 50 25 |e(.Dates|(P%),XP%|
|00003dd0| 2c 59 50 25 2d 4c 69 6e | 65 48 65 69 67 68 74 25 |,YP%-Lin|eHeight%|
|00003de0| 2c a3 29 0d 02 32 1e 48 | 25 3d 4c 69 6e 65 48 65 |,.)..2.H|%=LineHe|
|00003df0| 69 67 68 74 25 20 81 20 | 32 2d 34 3a 46 4f 25 3d |ight% . |2-4:FO%=|
|00003e00| 30 0d 02 33 1e c8 95 20 | a4 47 65 74 53 75 62 28 |0..3... |.GetSub(|
|00003e10| 50 25 2c 46 61 6d 73 54 | 67 25 2c 46 4f 25 29 0d |P%,FamsT|g%,FO%).|
|00003e20| 02 34 27 20 20 46 25 3d | 46 4f 25 21 4f 62 56 61 |.4'  F%=|FO%!ObVa|
|00003e30| 6c 25 3a 58 31 25 3d 49 | 6e 66 69 6e 69 74 79 25 |l%:X1%=I|nfinity%|
|00003e40| 3a 43 4f 25 3d 30 0d 02 | 35 20 20 20 c8 95 20 a4 |:CO%=0..|5   .. .|
|00003e50| 47 65 74 53 75 62 28 46 | 25 2c 43 68 69 6c 54 67 |GetSub(F|%,ChilTg|
|00003e60| 25 2c 43 4f 25 29 0d 02 | 36 2d 20 20 20 20 f2 47 |%,CO%)..|6-    .G|
|00003e70| 65 74 50 6f 73 28 43 4f | 25 2c 58 50 25 2c 59 50 |etPos(CO|%,XP%,YP|
|00003e80| 25 29 3a 59 50 25 2b 3d | 4c 69 6e 65 48 65 69 67 |%):YP%+=|LineHeig|
|00003e90| 68 74 25 0d 02 37 41 20 | 20 20 20 ec 20 58 57 25 |ht%..7A |   . XW%|
|00003ea0| 2b 58 50 25 2c 59 57 25 | 2b 59 50 25 3a df 20 42 |+XP%,YW%|+YP%:. B|
|00003eb0| 59 20 30 2c 2d 48 25 20 | 20 20 20 20 3a f4 20 56 |Y 0,-H% |    :. V|
|00003ec0| 65 72 74 69 63 61 6c 20 | 61 62 6f 76 65 20 63 68 |ertical |above ch|
|00003ed0| 69 6c 64 2e 0d 02 38 1f | 20 20 20 20 e7 20 58 31 |ild...8.|    . X1|
|00003ee0| 25 3d 49 6e 66 69 6e 69 | 74 79 25 20 58 31 25 3d |%=Infini|ty% X1%=|
|00003ef0| 58 50 25 0d 02 39 34 20 | 20 20 20 f2 44 69 73 70 |XP%..94 |   .Disp|
|00003f00| 6c 61 79 49 6e 64 69 28 | 43 4f 25 2c 59 25 2c 78 |layIndi(|CO%,Y%,x|
|00003f10| 4d 69 6e 25 2c 79 4d 69 | 6e 25 2c 78 4d 61 78 25 |Min%,yMi|n%,xMax%|
|00003f20| 2c 79 4d 61 78 25 29 0d | 02 3a 07 20 20 ce 0d 02 |,yMax%).|.:.  ...|
|00003f30| 3b 18 20 20 e7 20 58 31 | 25 3c 3e 49 6e 66 69 6e |;.  . X1|%<>Infin|
|00003f40| 69 74 79 25 20 8c 0d 02 | 3c 47 20 20 20 20 58 4d |ity% ...|<G    XM|
|00003f50| 25 3d 28 58 31 25 2b 58 | 50 25 29 20 81 20 32 20 |%=(X1%+X|P%) . 2 |
|00003f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f70| 20 20 20 3a f4 20 42 65 | 74 77 65 65 6e 20 66 69 |   :. Be|tween fi|
|00003f80| 72 73 74 20 61 6e 64 20 | 6c 61 73 74 2e 0d 02 3d |rst and |last...=|
|00003f90| 42 20 20 20 20 ec 20 58 | 57 25 2b 58 4d 25 2c 59 |B    . X|W%+XM%,Y|
|00003fa0| 57 25 2b 59 50 25 3a df | 20 42 59 20 30 2c 48 25 |W%+YP%:.| BY 0,H%|
|00003fb0| 20 20 20 20 20 20 3a f4 | 20 56 65 72 74 69 63 61 |      :.| Vertica|
|00003fc0| 6c 20 62 65 6c 6f 77 20 | 73 70 6f 75 73 65 2e 0d |l below |spouse..|
|00003fd0| 02 3e 37 20 20 20 20 ec | 20 58 57 25 2b 58 31 25 |.>7    .| XW%+X1%|
|00003fe0| 2c 59 57 25 2b 59 50 25 | 3a df 20 42 59 20 58 50 |,YW%+YP%|:. BY XP|
|00003ff0| 25 2d 58 31 25 2c 30 20 | 3a f4 20 48 6f 72 69 7a |%-X1%,0 |:. Horiz|
|00004000| 6f 6e 74 61 6c 2e 0d 02 | 3f 07 20 20 cd 0d 02 40 |ontal...|?.  ...@|
|00004010| 10 20 20 53 52 25 3d 30 | 3a 53 25 3d a3 0d 02 41 |.  SR%=0|:S%=...A|
|00004020| 21 20 20 e7 20 a4 47 65 | 74 53 75 62 28 46 25 2c |!  . .Ge|tSub(F%,|
|00004030| 48 75 73 62 54 67 25 2c | 53 52 25 29 20 8c 0d 02 |HusbTg%,|SR%) ...|
|00004040| 42 37 20 20 20 20 e7 20 | 53 52 25 21 4f 62 56 61 |B7    . |SR%!ObVa|
|00004050| 6c 25 3d 50 25 20 53 52 | 25 3d 30 3a 7a 3d a4 47 |l%=P% SR|%=0:z=.G|
|00004060| 65 74 53 75 62 28 46 25 | 2c 57 69 66 65 54 67 25 |etSub(F%|,WifeTg%|
|00004070| 2c 53 52 25 29 0d 02 43 | 07 20 20 cd 0d 02 44 0d |,SR%)..C|.  ...D.|
|00004080| 20 20 e7 20 53 52 25 20 | 8c 0d 02 45 16 20 20 20 |  . SR% |...E.   |
|00004090| 20 53 50 25 3d 53 52 25 | 21 4f 62 56 61 6c 25 0d | SP%=SR%|!ObVal%.|
|000040a0| 02 46 39 20 20 20 20 53 | 4c 25 3d 30 3a e7 20 a4 |.F9    S|L%=0:. .|
|000040b0| 53 70 6f 75 73 65 73 28 | 53 50 25 2c 53 4c 25 29 |Spouses(|SP%,SL%)|
|000040c0| 3d 30 20 85 20 31 2c 22 | 50 52 4f 43 44 69 73 70 |=0 . 1,"|PROCDisp|
|000040d0| 6c 61 79 49 6e 64 69 22 | 0d 02 47 2d 20 20 20 20 |layIndi"|..G-    |
|000040e0| 44 53 25 3d 4f 62 56 61 | 6c 25 21 28 53 52 25 21 |DS%=ObVa|l%!(SR%!|
|000040f0| 4f 62 53 75 62 73 25 29 | 3a 58 4d 25 3d 44 53 25 |ObSubs%)|:XM%=DS%|
|00004100| 21 44 53 78 25 0d 02 48 | 2e 20 20 20 20 53 25 3d |!DSx%..H|.    S%=|
|00004110| a4 46 61 74 68 65 72 28 | 53 50 25 29 3a e7 20 53 |.Father(|SP%):. S|
|00004120| 25 3d 30 20 53 25 3d a4 | 4d 6f 74 68 65 72 28 53 |%=0 S%=.|Mother(S|
|00004130| 50 25 29 0d 02 49 25 20 | 20 20 20 e7 20 ac 20 50 |P%)..I% |   . . P|
|00004140| 72 69 6e 74 69 6e 67 25 | 20 f2 53 65 78 43 6f 6c |rinting%| .SexCol|
|00004150| 6f 75 72 28 53 50 25 29 | 0d 02 4a 37 20 20 20 20 |our(SP%)|..J7    |
|00004160| f2 43 65 6e 74 72 65 28 | 24 28 44 53 25 21 44 53 |.Centre(|$(DS%!DS|
|00004170| 4e 61 6d 65 25 29 2c 58 | 4d 25 2c 59 25 2b 32 2a |Name%),X|M%,Y%+2*|
|00004180| 4c 69 6e 65 48 65 69 67 | 68 74 25 2c 53 25 29 0d |LineHeig|ht%,S%).|
|00004190| 02 4b 25 20 20 20 20 e7 | 20 ac 20 50 72 69 6e 74 |.K%    .| . Print|
|000041a0| 69 6e 67 25 20 f2 43 6f | 6c 6f 75 72 28 42 6c 61 |ing% .Co|lour(Bla|
|000041b0| 63 6b 25 29 0d 02 4c 3a | 20 20 20 20 53 25 3d a4 |ck%)..L:|    S%=.|
|000041c0| 53 70 6f 75 73 65 73 28 | 53 50 25 2c 53 4c 25 29 |Spouses(|SP%,SL%)|
|000041d0| 20 20 20 20 20 3a f4 20 | 53 50 25 20 68 61 73 20 |     :. |SP% has |
|000041e0| 6f 74 68 65 72 20 73 70 | 6f 75 73 65 73 3f 0d 02 |other sp|ouses?..|
|000041f0| 4d 07 20 20 cd 0d 02 4e | 24 20 20 4e 24 3d 22 3d |M.  ...N|$  N$="=|
|00004200| 22 3a e7 20 53 4e 25 20 | 4e 24 2b 3d c3 28 53 4e |":. SN% |N$+=.(SN|
|00004210| 25 29 3a 53 4e 25 2b 3d | 31 0d 02 4f 29 20 20 f2 |%):SN%+=|1..O)  .|
|00004220| 43 65 6e 74 72 65 28 4e | 24 2c 58 4d 25 2c 59 25 |Centre(N|$,XM%,Y%|
|00004230| 2b 33 2a 4c 69 6e 65 48 | 65 69 67 68 74 25 2c 53 |+3*LineH|eight%,S|
|00004240| 25 29 0d 02 50 05 ce 0d | 02 51 05 e1 0d 02 52 04 |%)..P...|.Q....R.|
|00004250| 0d 02 53 1d dd 20 f2 43 | 65 6e 74 72 65 28 53 24 |..S.. .C|entre(S$|
|00004260| 2c 58 25 2c 59 25 2c 50 | 6c 75 73 25 29 0d 02 54 |,X%,Y%,P|lus%)..T|
|00004270| 19 ea 20 57 25 3a 57 25 | 3d a4 57 69 64 74 68 28 |.. W%:W%|=.Width(|
|00004280| 53 24 29 3e 3e 31 0d 02 | 55 16 58 25 2b 3d 58 57 |S$)>>1..|U.X%+=XW|
|00004290| 25 2d 57 25 3a 59 25 2b | 3d 59 57 25 0d 02 56 10 |%-W%:Y%+|=YW%..V.|
|000042a0| e7 20 55 73 65 46 6f 6e | 74 25 20 8c 0d 02 57 2b |. UseFon|t% ...W+|
|000042b0| 20 20 e7 20 50 6c 75 73 | 25 20 53 24 2b 3d bd 28 |  . Plus|% S$+=.(|
|000042c0| 31 31 29 2b bd 28 30 29 | 2b bd 28 31 36 29 2b bd |11)+.(0)|+.(16)+.|
|000042d0| 28 30 29 2b 22 2b 22 0d | 02 58 35 20 20 c8 99 20 |(0)+"+".|.X5  .. |
|000042e0| 50 61 69 6e 74 25 2c 46 | 6f 6e 74 25 2c 53 24 2c |Paint%,F|ont%,S$,|
|000042f0| 26 33 31 30 2c 58 25 2c | 59 25 2d 4c 69 6e 65 48 |&310,X%,|Y%-LineH|
|00004300| 65 69 67 68 74 25 20 81 | 20 32 2b 38 0d 02 59 05 |eight% .| 2+8..Y.|
|00004310| cc 0d 02 5a 16 20 20 ec | 20 58 25 2c 59 25 2b 31 |...Z.  .| X%,Y%+1|
|00004320| 32 3a f1 20 53 24 3b 0d | 02 5b 1d 20 20 e7 20 50 |2:. S$;.|.[.  . P|
|00004330| 6c 75 73 25 20 ec 20 42 | 59 20 30 2c 31 30 3a f1 |lus% . B|Y 0,10:.|
|00004340| 22 2b 22 3b 0d 02 5c 05 | cd 0d 02 5d 05 e1 0d 02 |"+";..\.|...]....|
|00004350| 5e 04 0d 02 5f 33 f4 20 | 53 65 74 20 74 68 65 20 |^..._3. |Set the |
|00004360| 66 6f 72 65 67 72 6f 75 | 6e 64 20 63 6f 6c 6f 75 |foregrou|nd colou|
|00004370| 72 20 61 6e 64 20 66 6f | 6e 74 20 66 6f 72 20 73 |r and fo|nt for s|
|00004380| 79 73 74 65 6d 0d 02 60 | 39 f4 20 66 6f 6e 74 2c |ystem..`|9. font,|
|00004390| 20 6c 69 6e 65 73 20 61 | 6e 64 20 6f 75 74 6c 69 | lines a|nd outli|
|000043a0| 6e 65 20 66 6f 6e 74 73 | 2e 20 20 46 6f 72 65 25 |ne fonts|.  Fore%|
|000043b0| 20 69 73 20 26 42 42 47 | 47 52 52 30 30 2e 0d 02 | is &BBG|GRR00...|
|000043c0| 61 04 0d 02 62 14 dd 20 | f2 43 6f 6c 6f 75 72 28 |a...b.. |.Colour(|
|000043d0| 46 6f 72 65 25 29 0d 02 | 63 29 f4 20 53 65 74 20 |Fore%)..|c). Set |
|000043e0| 47 43 4f 4c 20 66 6f 72 | 20 73 79 73 74 65 6d 20 |GCOL for| system |
|000043f0| 66 6f 6e 74 20 61 6e 64 | 20 6c 69 6e 65 73 2e 0d |font and| lines..|
|00004400| 02 64 26 c8 99 20 22 43 | 6f 6c 6f 75 72 54 72 61 |.d&.. "C|olourTra|
|00004410| 6e 73 5f 53 65 74 47 43 | 4f 4c 22 2c 46 6f 72 65 |ns_SetGC|OL",Fore|
|00004420| 25 2c 2c 2c 30 0d 02 65 | 39 c8 99 20 22 43 6f 6c |%,,,0..e|9.. "Col|
|00004430| 6f 75 72 54 72 61 6e 73 | 5f 53 65 74 47 43 4f 4c |ourTrans|_SetGCOL|
|00004440| 22 2c 57 68 69 74 65 25 | 2c 2c 2c 31 3c 3c 37 20 |",White%|,,,1<<7 |
|00004450| 3a f4 20 42 61 63 6b 67 | 72 6f 75 6e 64 2e 0d 02 |:. Backg|round...|
|00004460| 66 3c f4 20 53 65 74 20 | 66 6f 6e 74 20 61 6e 64 |f<. Set |font and|
|00004470| 20 66 6f 6e 74 20 63 6f | 6c 6f 75 72 73 20 69 6e | font co|lours in|
|00004480| 20 63 61 73 65 20 75 73 | 69 6e 67 20 6f 75 74 6c | case us|ing outl|
|00004490| 69 6e 65 20 66 6f 6e 74 | 73 2e 0d 02 67 1b c8 99 |ine font|s...g...|
|000044a0| 20 22 46 6f 6e 74 5f 53 | 65 74 46 6f 6e 74 22 2c | "Font_S|etFont",|
|000044b0| 46 6f 6e 74 25 0d 02 68 | 39 c8 99 20 22 43 6f 6c |Font%..h|9.. "Col|
|000044c0| 6f 75 72 54 72 61 6e 73 | 5f 53 65 74 46 6f 6e 74 |ourTrans|_SetFont|
|000044d0| 43 6f 6c 6f 75 72 73 22 | 2c 46 6f 6e 74 25 2c 57 |Colours"|,Font%,W|
|000044e0| 68 69 74 65 25 2c 46 6f | 72 65 25 2c 31 34 0d 02 |hite%,Fo|re%,14..|
|000044f0| 69 05 e1 0d 02 6a 04 0d | 02 6b 14 dd 20 f2 53 65 |i....j..|.k.. .Se|
|00004500| 78 43 6f 6c 6f 75 72 28 | 50 25 29 0d 02 6c 11 c8 |xColour(|P%)..l..|
|00004510| 8e 20 a4 53 65 78 28 50 | 25 29 20 ca 0d 02 6d 19 |. .Sex(P|%) ...m.|
|00004520| c9 20 22 4d 22 20 3a f2 | 43 6f 6c 6f 75 72 28 42 |. "M" :.|Colour(B|
|00004530| 6c 75 65 25 29 0d 02 6e | 18 c9 20 22 46 22 20 3a |lue%)..n|.. "F" :|
|00004540| f2 43 6f 6c 6f 75 72 28 | 52 65 64 25 29 0d 02 6f |.Colour(|Red%)..o|
|00004550| 15 7f 3a f2 43 6f 6c 6f | 75 72 28 47 72 65 65 6e |..:.Colo|ur(Green|
|00004560| 25 29 0d 02 70 05 cb 0d | 02 71 05 e1 0d 02 72 04 |%)..p...|.q....r.|
|00004570| 0d 02 73 13 dd 20 f2 4d | 69 6e 28 f8 20 41 25 2c |..s.. .M|in(. A%,|
|00004580| 42 25 29 0d 02 74 11 e7 | 20 42 25 3c 41 25 20 41 |B%)..t..| B%<A% A|
|00004590| 25 3d 42 25 0d 02 75 05 | e1 0d 02 76 04 0d 02 77 |%=B%..u.|...v...w|
|000045a0| 13 dd 20 f2 4d 61 78 28 | f8 20 41 25 2c 42 25 29 |.. .Max(|. A%,B%)|
|000045b0| 0d 02 78 11 e7 20 42 25 | 3e 41 25 20 41 25 3d 42 |..x.. B%|>A% A%=B|
|000045c0| 25 0d 02 79 05 e1 0d 02 | 7a 04 0d 02 7b 48 f4 20 |%..y....|z...{H. |
|000045d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000045e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 20 57 49 |========|===== WI|
|000045f0| 4d 50 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |MP =====|========|
|00004600| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004610| 3d 3d 0d 02 7c 04 0d 02 | 7d 3a f4 20 4c 6f 61 64 |==..|...|}:. Load|
|00004620| 20 61 20 74 65 6d 70 6c | 61 74 65 20 61 6e 64 20 | a templ|ate and |
|00004630| 63 72 65 61 74 65 20 74 | 68 65 20 77 69 6e 64 6f |create t|he windo|
|00004640| 77 2e 20 20 54 68 65 20 | 62 6c 6f 63 6b 20 69 73 |w.  The |block is|
|00004650| 0d 02 7e 3b f4 20 6c 6f | 61 64 65 64 20 61 74 20 |..~;. lo|aded at |
|00004660| 62 25 2b 34 20 73 6f 20 | 69 74 20 63 61 6e 20 62 |b%+4 so |it can b|
|00004670| 65 20 75 73 65 64 20 66 | 6f 72 20 57 69 6d 70 5f |e used f|or Wimp_|
|00004680| 4f 70 65 6e 57 69 6e 64 | 6f 77 2e 0d 02 7f 04 0d |OpenWind|ow......|
|00004690| 02 80 15 dd 20 a4 47 65 | 74 54 65 6d 28 24 6d 65 |.... .Ge|tTem($me|
|000046a0| 73 73 25 29 0d 02 81 09 | ea 20 57 48 25 0d 02 82 |ss%)....|. WH%...|
|000046b0| 3e c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |>.. "Wim|p_LoadTe|
|000046c0| 6d 70 6c 61 74 65 22 2c | 2c 62 25 2b 34 2c 69 6e |mplate",|,b%+4,in|
|000046d0| 64 25 2c 69 6e 64 65 6e | 64 25 2c 2d 31 2c 6d 65 |d%,inden|d%,-1,me|
|000046e0| 73 73 25 20 b8 2c 2c 69 | 6e 64 25 0d 02 83 36 f4 |ss% .,,i|nd%...6.|
|000046f0| 20 62 25 21 28 34 2b 36 | 34 29 3d 53 70 72 69 74 | b%!(4+6|4)=Sprit|
|00004700| 65 73 25 20 20 20 20 20 | 20 20 20 3a 52 45 4d 20 |es%     |   :REM |
|00004710| 55 73 65 72 20 73 70 72 | 69 74 65 20 61 72 65 61 |User spr|ite area|
|00004720| 2e 0d 02 84 26 c8 99 20 | 22 57 69 6d 70 5f 43 72 |....&.. |"Wimp_Cr|
|00004730| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 25 2b |eateWind|ow",,b%+|
|00004740| 34 20 b8 20 57 48 25 0d | 02 85 08 3d 57 48 25 0d |4 . WH%.|...=WH%.|
|00004750| 02 86 04 0d 02 87 19 f4 | 20 4f 70 65 6e 20 77 69 |........| Open wi|
|00004760| 6e 64 6f 77 20 6f 6e 20 | 74 6f 70 2e 0d 02 88 04 |ndow on |top.....|
|00004770| 0d 02 89 10 dd 20 f2 4f | 70 65 6e 28 21 62 25 29 |..... .O|pen(!b%)|
|00004780| 0d 02 8a 12 c8 99 20 47 | 65 74 57 69 6e 25 2c 2c |...... G|etWin%,,|
|00004790| 62 25 0d 02 8b 1e f4 20 | 49 46 20 48 6f 6d 65 25 |b%..... |IF Home%|
|000047a0| 20 62 25 21 32 30 3d 30 | 3a 62 25 21 32 34 3d 30 | b%!20=0|:b%!24=0|
|000047b0| 0d 02 8c 25 62 25 21 32 | 38 3d 2d 31 3a c8 99 20 |...%b%!2|8=-1:.. |
|000047c0| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|000047d0| 22 2c 2c 62 25 0d 02 8d | 05 e1 0d 02 8e 04 0d 02 |",,b%...|........|
|000047e0| 8f 11 dd 20 f2 43 6c 6f | 73 65 28 21 62 25 29 0d |... .Clo|se(!b%).|
|000047f0| 02 90 1d c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..... "W|imp_Clos|
|00004800| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 25 0d 02 91 05 |eWindow"|,,b%....|
|00004810| e1 0d 02 92 04 0d 02 93 | 46 f4 20 53 65 74 20 77 |........|F. Set w|
|00004820| 6f 72 6b 20 61 72 65 61 | 20 65 78 74 65 6e 74 20 |ork area| extent |
|00004830| 61 6e 64 20 76 69 73 69 | 62 6c 65 20 61 72 65 61 |and visi|ble area|
|00004840| 2e 20 20 54 6f 70 20 6c | 65 66 74 20 69 73 20 77 |.  Top l|eft is w|
|00004850| 6f 72 6b 20 6f 72 69 67 | 69 6e 2e 0d 02 94 26 f4 |ork orig|in....&.|
|00004860| 20 42 72 69 6e 67 20 77 | 69 6e 64 6f 77 20 74 6f | Bring w|indow to|
|00004870| 20 66 72 6f 6e 74 20 69 | 66 20 46 72 6f 6e 74 25 | front i|f Front%|
|00004880| 2e 0d 02 95 04 0d 02 96 | 28 dd 20 f2 45 78 74 65 |........|(. .Exte|
|00004890| 6e 74 28 57 48 25 2c 57 | 69 64 74 68 25 2c 48 65 |nt(WH%,W|idth%,He|
|000048a0| 69 67 68 74 25 2c 46 72 | 6f 6e 74 25 29 0d 02 97 |ight%,Fr|ont%)...|
|000048b0| 0c ea 20 44 65 70 74 68 | 25 0d 02 98 3c e7 20 46 |.. Depth|%...<. F|
|000048c0| 72 6f 6e 74 25 20 44 65 | 70 74 68 25 3d 2d 31 20 |ront% De|pth%=-1 |
|000048d0| 8b 20 21 62 25 3d 57 48 | 25 3a c8 99 20 47 65 74 |. !b%=WH|%:.. Get|
|000048e0| 57 69 6e 25 2c 2c 62 25 | 3a 44 65 70 74 68 25 3d |Win%,,b%|:Depth%=|
|000048f0| 62 25 21 32 38 0d 02 99 | 2f f2 43 6c 6f 73 65 28 |b%!28...|/.Close(|
|00004900| 57 48 25 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |WH%)    |        |
|00004910| 20 20 20 20 3a f4 20 46 | 6f 72 63 65 20 72 65 64 |    :. F|orce red|
|00004920| 72 61 77 2e 0d 02 9a 3b | 62 25 21 30 3d 30 3a 62 |raw....;|b%!0=0:b|
|00004930| 25 21 34 3d 2d 48 65 69 | 67 68 74 25 20 80 20 ac |%!4=-Hei|ght% . .|
|00004940| 20 37 3a 62 25 21 38 3d | 28 57 69 64 74 68 25 2b | 7:b%!8=|(Width%+|
|00004950| 37 29 80 20 ac 20 37 3a | 62 25 21 31 32 3d 30 0d |7). . 7:|b%!12=0.|
|00004960| 02 9b 1e c8 99 20 22 57 | 69 6d 70 5f 53 65 74 45 |..... "W|imp_SetE|
|00004970| 78 74 65 6e 74 22 2c 57 | 48 25 2c 62 25 0d 02 9c |xtent",W|H%,b%...|
|00004980| 34 f4 20 52 65 73 69 7a | 65 20 76 69 73 69 62 6c |4. Resiz|e visibl|
|00004990| 65 20 61 72 65 61 20 62 | 6f 74 74 6f 6d 20 72 69 |e area b|ottom ri|
|000049a0| 67 68 74 20 74 6f 20 77 | 6f 72 6b 20 61 72 65 61 |ght to w|ork area|
|000049b0| 2e 0d 02 9d 3d 21 62 25 | 3d 57 48 25 3a 62 25 21 |....=!b%|=WH%:b%!|
|000049c0| 31 32 3d 62 25 21 34 2b | 57 69 64 74 68 25 3a 62 |12=b%!4+|Width%:b|
|000049d0| 25 21 38 3d 62 25 21 31 | 36 2d 48 65 69 67 68 74 |%!8=b%!1|6-Height|
|000049e0| 25 3a 62 25 21 32 38 3d | 44 65 70 74 68 25 0d 02 |%:b%!28=|Depth%..|
|000049f0| 9e 1c c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |.... "Wi|mp_OpenW|
|00004a00| 69 6e 64 6f 77 22 2c 2c | 62 25 0d 02 9f 05 e1 0d |indow",,|b%......|
|00004a10| 02 a0 04 0d 02 a1 44 f4 | 20 52 65 64 72 61 77 20 |......D.| Redraw |
|00004a20| 69 63 6f 6e 20 67 69 76 | 65 6e 20 77 69 6e 64 6f |icon giv|en windo|
|00004a30| 77 20 61 6e 64 20 69 63 | 6f 6e 20 68 61 6e 64 6c |w and ic|on handl|
|00004a40| 65 73 20 61 6e 64 20 73 | 65 6c 65 63 74 69 6f 6e |es and s|election|
|00004a50| 20 73 74 61 74 65 2e 0d | 02 a2 04 0d 02 a3 1d dd | state..|........|
|00004a60| 20 f2 53 65 6c 49 63 6f | 6e 28 62 25 21 30 2c 62 | .SelIco|n(b%!0,b|
|00004a70| 25 21 34 2c 4f 6e 25 29 | 0d 02 a4 25 62 25 21 38 |%!4,On%)|...%b%!8|
|00004a80| 3d 28 31 3c 3c 32 31 29 | 20 80 20 4f 6e 25 3c 3e |=(1<<21)| . On%<>|
|00004a90| 30 3a 62 25 21 31 32 3d | 31 3c 3c 32 31 0d 02 a5 |0:b%!12=|1<<21...|
|00004aa0| 1e c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |... "Wim|p_SetIco|
|00004ab0| 6e 53 74 61 74 65 22 2c | 2c 62 25 0d 02 a6 05 e1 |nState",|,b%.....|
|00004ac0| 0d 02 a7 04 0d 02 a8 17 | f4 20 49 73 20 69 63 6f |........|. Is ico|
|00004ad0| 6e 20 73 65 6c 65 63 74 | 65 64 3f 0d 02 a9 04 0d |n select|ed?.....|
|00004ae0| 02 aa 19 dd 20 a4 53 65 | 6c 49 63 6f 6e 28 62 25 |.... .Se|lIcon(b%|
|00004af0| 21 30 2c 62 25 21 34 29 | 0d 02 ab 1e c8 99 20 22 |!0,b%!4)|...... "|
|00004b00| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00004b10| 65 22 2c 2c 62 25 0d 02 | ac 17 3d 28 62 25 21 32 |e",,b%..|..=(b%!2|
|00004b20| 34 20 80 20 31 3c 3c 32 | 31 29 3c 3e 30 0d 02 ad |4 . 1<<2|1)<>0...|
|00004b30| 04 0d 02 ae 40 f4 20 52 | 65 74 75 72 6e 20 74 68 |....@. R|eturn th|
|00004b40| 65 20 61 64 64 72 65 73 | 73 20 6f 66 20 74 68 65 |e addres|s of the|
|00004b50| 20 69 6e 64 69 72 65 63 | 74 65 64 20 74 65 78 74 | indirec|ted text|
|00004b60| 20 6f 66 20 57 48 27 73 | 20 69 63 6f 6e 20 49 48 | of WH's| icon IH|
|00004b70| 2e 0d 02 af 30 f4 20 41 | 6c 73 6f 20 74 68 65 20 |....0. A|lso the |
|00004b80| 61 64 64 72 65 73 73 20 | 6f 66 20 61 6e 20 69 6e |address |of an in|
|00004b90| 64 69 72 65 63 74 65 64 | 20 73 70 72 69 74 65 2e |directed| sprite.|
|00004ba0| 20 0d 02 b0 04 0d 02 b1 | 21 dd 20 a4 49 63 54 78 | .......|!. .IcTx|
|00004bb0| 74 28 62 25 21 30 2c 62 | 25 21 34 29 20 3a f4 20 |t(b%!0,b|%!4) :. |
|00004bc0| 57 48 2c 20 49 48 0d 02 | b2 1e c8 99 20 22 57 69 |WH, IH..|.... "Wi|
|00004bd0| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00004be0| 2c 2c 62 25 0d 02 b3 0a | 3d 62 25 21 32 38 0d 02 |,,b%....|=b%!28..|
|00004bf0| b4 04 0d 02 b5 1a dd 20 | f2 43 61 72 65 74 28 57 |....... |.Caret(W|
|00004c00| 48 25 2c 49 48 25 2c 45 | 6e 64 25 29 0d 02 b6 08 |H%,IH%,E|nd%)....|
|00004c10| ea 20 4c 25 0d 02 b7 28 | e7 20 45 6e 64 25 20 4c |. L%...(|. End% L|
|00004c20| 25 3d a9 28 24 a4 49 63 | 54 78 74 28 57 48 25 2c |%=.($.Ic|Txt(WH%,|
|00004c30| 49 48 25 29 29 20 8b 20 | 4c 25 3d 30 0d 02 b8 2e |IH%)) . |L%=0....|
|00004c40| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 43 61 72 65 |.. "Wimp|_SetCare|
|00004c50| 74 50 6f 73 69 74 69 6f | 6e 22 2c 57 48 25 2c 49 |tPositio|n",WH%,I|
|00004c60| 48 25 2c 2c 2c 2d 31 2c | 4c 25 0d 02 b9 2a f2 53 |H%,,,-1,|L%...*.S|
|00004c70| 65 6c 49 63 6f 6e 28 57 | 48 25 2c 49 48 25 2c a3 |elIcon(W|H%,IH%,.|
|00004c80| 29 20 20 20 20 3a f4 20 | 52 65 64 72 61 77 20 69 |)    :. |Redraw i|
|00004c90| 63 6f 6e 2e 0d 02 ba 05 | e1 0d 02 bb 04 0d 02 bc |con.....|........|
|00004ca0| 18 dd 20 f2 4b 65 79 28 | 57 48 25 2c 49 48 25 2c |.. .Key(|WH%,IH%,|
|00004cb0| 4b 65 79 25 29 0d 02 bd | 0d c8 8e 20 4b 65 79 25 |Key%)...|... Key%|
|00004cc0| 20 ca 0d 02 be 13 c9 20 | 50 72 69 6e 74 25 3a f2 | ...... |Print%:.|
|00004cd0| 50 72 69 6e 74 0d 02 bf | 1f c9 20 46 31 25 20 20 |Print...|.. F1%  |
|00004ce0| 20 3a f2 43 6f 6d 70 6c | 65 74 65 28 57 48 25 2c | :.Compl|ete(WH%,|
|00004cf0| 49 48 25 29 0d 02 c0 35 | c9 20 46 33 25 20 20 20 |IH%)...5|. F3%   |
|00004d00| 3a f2 4d 6f 75 73 65 4d | 65 6e 75 28 53 61 76 65 |:.MouseM|enu(Save|
|00004d10| 57 48 25 29 20 20 20 20 | 20 20 20 20 20 20 3a f4 |WH%)    |      :.|
|00004d20| 20 46 33 20 53 61 76 65 | 2e 0d 02 c1 35 c9 20 46 | F3 Save|....5. F|
|00004d30| 35 25 20 20 20 3a f2 4d | 6f 75 73 65 4d 65 6e 75 |5%   :.M|ouseMenu|
|00004d40| 28 47 6f 74 6f 57 48 25 | 29 20 20 20 20 20 20 20 |(GotoWH%|)       |
|00004d50| 20 20 20 3a f4 20 46 35 | 20 47 6f 74 6f 2e 0d 02 |   :. F5| Goto...|
|00004d60| c2 3b c9 20 43 74 72 6c | 43 25 3a f2 45 64 69 74 |.;. Ctrl|C%:.Edit|
|00004d70| 43 68 69 6c 64 28 50 65 | 72 73 6f 6e 25 29 20 20 |Child(Pe|rson%)  |
|00004d80| 20 20 20 20 20 20 20 20 | 3a f4 20 5e 43 20 61 64 |        |:. ^C ad|
|00004d90| 64 73 20 63 68 69 6c 64 | 2e 0d 02 c3 3e c9 20 43 |ds child|....>. C|
|00004da0| 74 72 6c 45 25 3a f2 45 | 64 69 74 50 65 72 73 6f |trlE%:.E|ditPerso|
|00004db0| 6e 28 50 65 72 73 6f 6e | 25 29 20 20 20 20 20 20 |n(Person|%)      |
|00004dc0| 20 20 20 3a f4 20 5e 45 | 20 65 64 69 74 73 20 63 |   :. ^E| edits c|
|00004dd0| 75 72 72 65 6e 74 2e 0d | 02 c4 3b c9 20 43 74 72 |urrent..|..;. Ctr|
|00004de0| 6c 53 25 3a e7 20 57 48 | 25 3d 45 64 69 74 57 48 |lS%:. WH|%=EditWH|
|00004df0| 25 20 f2 45 64 69 74 28 | 30 2c 4b 65 79 25 29 20 |% .Edit(|0,Key%) |
|00004e00| 3a f4 20 5e 53 20 74 6f | 67 67 6c 65 73 20 73 65 |:. ^S to|ggles se|
|00004e10| 78 2e 0d 02 c5 47 f4 20 | 52 65 74 75 72 6e 20 70 |x....G. |Return p|
|00004e20| 61 73 73 65 64 20 61 73 | 20 6b 65 79 20 65 76 65 |assed as| key eve|
|00004e30| 6e 74 2e 20 20 4e 6f 74 | 65 20 61 6e 79 20 4b 20 |nt.  Not|e any K |
|00004e40| 63 6f 6d 6d 61 6e 64 20 | 69 6e 20 74 68 65 20 76 |command |in the v|
|00004e50| 61 6c 69 64 61 74 69 6f | 6e 0d 02 c6 4c f4 20 73 |alidatio|n...L. s|
|00004e60| 74 72 69 6e 67 20 70 72 | 65 76 65 6e 74 73 20 43 |tring pr|events C|
|00004e70| 52 20 62 65 69 6e 67 20 | 70 61 73 73 65 64 2e 20 |R being |passed. |
|00004e80| 20 4b 74 20 6f 6e 6c 79 | 20 70 61 73 73 65 73 20 | Kt only| passes |
|00004e90| 69 74 20 66 6f 72 20 74 | 68 65 20 6c 61 73 74 20 |it for t|he last |
|00004ea0| 69 63 6f 6e 2e 0d 02 c7 | 40 c9 20 43 52 25 2c 55 |icon....|@. CR%,U|
|00004eb0| 70 41 72 72 6f 77 25 2c | 44 6f 77 6e 41 72 72 6f |pArrow%,|DownArro|
|00004ec0| 77 25 3a e7 20 57 48 25 | 3e 30 20 f2 42 75 74 74 |w%:. WH%|>0 .Butt|
|00004ed0| 6f 6e 73 28 30 2c 30 2c | 4b 65 79 25 2c 57 48 25 |ons(0,0,|Key%,WH%|
|00004ee0| 2c 49 48 25 29 0d 02 c8 | 25 c9 20 54 61 62 25 20 |,IH%)...|%. Tab% |
|00004ef0| 20 3a f2 4b 65 79 28 57 | 48 25 2c 49 48 25 2c 44 | :.Key(W|H%,IH%,D|
|00004f00| 6f 77 6e 41 72 72 6f 77 | 25 29 0d 02 c9 24 c9 20 |ownArrow|%)...$. |
|00004f10| 53 68 66 54 61 62 25 3a | f2 4b 65 79 28 57 48 25 |ShfTab%:|.Key(WH%|
|00004f20| 2c 49 48 25 2c 55 70 41 | 72 72 6f 77 25 29 0d 02 |,IH%,UpA|rrow%)..|
|00004f30| ca 12 c9 20 43 74 72 6c | 51 25 3a f2 51 75 69 74 |... Ctrl|Q%:.Quit|
|00004f40| 0d 02 cb 1f 7f 3a c8 99 | 20 22 57 69 6d 70 5f 50 |.....:..| "Wimp_P|
|00004f50| 72 6f 63 65 73 73 4b 65 | 79 22 2c 4b 65 79 25 0d |rocessKe|y",Key%.|
|00004f60| 02 cc 05 cb 0d 02 cd 05 | e1 0d 02 ce 04 0d 02 cf |........|........|
|00004f70| 25 f4 20 4d 6f 75 73 65 | 20 65 76 65 6e 74 20 40 |%. Mouse| event @|
|00004f80| 20 58 2c 59 20 6f 72 20 | 6b 65 79 20 70 72 65 73 | X,Y or |key pres|
|00004f90| 73 2e 0d 02 d0 04 0d 02 | d1 22 dd 20 f2 42 75 74 |s.......|.". .But|
|00004fa0| 74 6f 6e 73 28 58 25 2c | 59 25 2c 42 75 74 25 2c |tons(X%,|Y%,But%,|
|00004fb0| 57 48 25 2c 49 48 25 29 | 0d 02 d2 08 ea 20 50 25 |WH%,IH%)|..... P%|
|00004fc0| 0d 02 d3 33 e7 20 42 75 | 74 25 3d 32 20 e7 20 57 |...3. Bu|t%=2 . W|
|00004fd0| 48 25 3c 30 20 84 20 49 | 48 25 3c 30 20 f2 4f 70 |H%<0 . I|H%<0 .Op|
|00004fe0| 65 6e 4d 65 6e 75 28 58 | 25 2c 59 25 2c 57 48 25 |enMenu(X|%,Y%,WH%|
|00004ff0| 29 3a e1 0d 02 d4 0c c8 | 8e 20 57 48 25 20 ca 0d |):......|. WH% ..|
|00005000| 02 d5 2b c9 20 2d 32 20 | 20 20 20 20 20 20 20 20 |..+. -2 |        |
|00005010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |        |      :.|
|00005020| 20 49 63 6f 6e 20 62 61 | 72 2e 0d 02 d6 1e 20 20 | Icon ba|r.....  |
|00005030| e7 20 50 65 72 73 6f 6e | 25 20 f2 4f 70 65 6e 28 |. Person|% .Open(|
|00005040| 4e 6f 74 65 57 48 25 29 | 0d 02 d7 14 20 20 f2 4f |NoteWH%)|....  .O|
|00005050| 70 65 6e 28 4d 61 69 6e | 57 48 25 29 0d 02 d8 17 |pen(Main|WH%)....|
|00005060| c9 20 43 6f 6d 70 57 48 | 25 3a f2 43 6f 6d 70 28 |. CompWH|%:.Comp(|
|00005070| 59 25 29 0d 02 d9 1d c9 | 20 45 64 69 74 57 48 25 |Y%).....| EditWH%|
|00005080| 3a f2 45 64 69 74 28 49 | 48 25 2c 42 75 74 25 29 |:.Edit(I|H%,But%)|
|00005090| 0d 02 da 16 c9 20 47 6f | 74 6f 57 48 25 2c 4d 61 |..... Go|toWH%,Ma|
|000050a0| 72 72 79 57 48 25 0d 02 | db 0c 20 20 c8 8e 20 b9 |rryWH%..|..  .. .|
|000050b0| 20 ca 0d 02 dc 1c 20 20 | c9 20 49 48 25 3d 47 6f | .....  |. IH%=Go|
|000050c0| 49 63 4f 4b 25 2c 42 75 | 74 25 3d 43 52 25 0d 02 |IcOK%,Bu|t%=CR%..|
|000050d0| dd 28 20 20 20 20 50 25 | 3d a4 46 69 6e 64 28 24 |.(    P%|=.Find($|
|000050e0| a4 49 63 54 78 74 28 57 | 48 25 2c 47 6f 49 63 4e |.IcTxt(W|H%,GoIcN|
|000050f0| 61 6d 65 25 29 29 0d 02 | de 0e 20 20 20 20 e7 20 |ame%))..|..    . |
|00005100| 50 25 20 8c 0d 02 df 3a | 20 20 20 20 20 20 e7 20 |P% ....:|      . |
|00005110| 57 48 25 3d 47 6f 74 6f | 57 48 25 20 f2 47 6f 74 |WH%=Goto|WH% .Got|
|00005120| 6f 28 50 25 29 20 8b 20 | f2 4d 61 72 72 79 28 4d |o(P%) . |.Marry(M|
|00005130| 65 6e 75 50 65 72 73 6f | 6e 25 2c 50 25 29 0d 02 |enuPerso|n%,P%)..|
|00005140| e0 09 20 20 20 20 cd 0d | 02 e1 14 20 20 c9 20 49 |..    ..|...  . I|
|00005150| 48 25 3d 47 6f 49 63 43 | 75 72 25 0d 02 e2 2d 20 |H%=GoIcC|ur%...- |
|00005160| 20 20 20 24 a4 49 63 54 | 78 74 28 57 48 25 2c 47 |   $.IcT|xt(WH%,G|
|00005170| 6f 49 63 4e 61 6d 65 25 | 29 3d a4 4e 61 6d 65 28 |oIcName%|)=.Name(|
|00005180| 50 65 72 73 6f 6e 25 29 | 0d 02 e3 1f 20 20 20 20 |Person%)|....    |
|00005190| f2 43 61 72 65 74 28 57 | 48 25 2c 47 6f 49 63 4e |.Caret(W|H%,GoIcN|
|000051a0| 61 6d 65 25 2c b9 29 0d | 02 e4 09 20 20 20 20 e1 |ame%,.).|...    .|
|000051b0| 0d 02 e5 07 20 20 cb 0d | 02 e6 0d c9 20 4d 61 69 |....  ..|.... Mai|
|000051c0| 6e 57 48 25 0d 02 e7 15 | 20 20 50 25 3d a4 4e 65 |nWH%....|  P%=.Ne|
|000051d0| 61 72 28 58 25 2c 59 25 | 29 0d 02 e8 2a 20 20 e7 |ar(X%,Y%|)...*  .|
|000051e0| 20 42 75 74 25 3d 31 20 | f2 45 64 69 74 50 65 72 | But%=1 |.EditPer|
|000051f0| 73 6f 6e 28 50 25 29 20 | 8b 20 f2 47 6f 74 6f 28 |son(P%) |. .Goto(|
|00005200| 50 25 29 0d 02 e9 0d c9 | 20 4d 6f 64 73 57 48 25 |P%).....| ModsWH%|
|00005210| 0d 02 ea 0e 20 20 c8 8e | 20 49 48 25 20 ca 0d 02 |....  ..| IH% ...|
|00005220| eb 11 20 20 c9 20 4d 6f | 49 63 44 69 73 63 25 0d |..  . Mo|IcDisc%.|
|00005230| 02 ec 13 20 20 20 20 4d | 6f 64 69 66 69 65 64 25 |...    M|odified%|
|00005240| 3d a3 0d 02 ed 12 20 20 | 20 20 c8 8e 20 54 6f 44 |=.....  |  .. ToD|
|00005250| 6f 24 20 ca 0d 02 ee 14 | 20 20 20 20 c9 20 22 2e |o$ .....|    . ".|
|00005260| 51 22 3a f2 51 75 69 74 | 0d 02 ef 15 20 20 20 20 |Q":.Quit|....    |
|00005270| c9 20 22 2e 52 22 3a f2 | 52 65 73 65 74 0d 02 f0 |. ".R":.|Reset...|
|00005280| 18 20 20 20 20 7f 3a f2 | 4c 6f 61 64 28 54 6f 44 |.    .:.|Load(ToD|
|00005290| 6f 24 2c b9 29 0d 02 f1 | 09 20 20 20 20 cb 0d 02 |o$,.)...|.    ...|
|000052a0| f2 27 20 20 c9 20 4d 6f | 49 63 53 61 76 65 25 3a |.'  . Mo|IcSave%:|
|000052b0| f2 4d 6f 75 73 65 4d 65 | 6e 75 28 53 61 76 65 57 |.MouseMe|nu(SaveW|
|000052c0| 48 25 29 3a e1 0d 02 f3 | 07 20 20 cb 0d 02 f4 18 |H%):....|.  .....|
|000052d0| c9 20 4e 6f 74 65 57 48 | 25 3a f2 45 64 69 74 4e |. NoteWH|%:.EditN|
|000052e0| 6f 74 65 73 0d 02 f5 29 | c9 20 53 61 76 65 57 48 |otes...)|. SaveWH|
|000052f0| 25 2c 52 65 70 6f 57 48 | 25 3a f2 53 61 76 65 28 |%,RepoWH|%:.Save(|
|00005300| 57 48 25 2c 49 48 25 2c | 42 75 74 25 29 0d 02 f6 |WH%,IH%,|But%)...|
|00005310| 05 cb 0d 02 f7 0c c8 8e | 20 57 48 25 20 ca 0d 02 |........| WH% ...|
|00005320| f8 26 c9 20 47 6f 74 6f | 57 48 25 2c 49 6e 66 6f |.&. Goto|WH%,Info|
|00005330| 57 48 25 2c 4d 61 72 72 | 79 57 48 25 2c 4d 6f 64 |WH%,Marr|yWH%,Mod|
|00005340| 73 57 48 25 0d 02 f9 2a | 20 20 f2 43 6c 6f 73 65 |sWH%...*|  .Close|
|00005350| 28 57 48 25 29 3a c8 99 | 20 22 57 69 6d 70 5f 43 |(WH%):..| "Wimp_C|
|00005360| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 0d 02 |reateMen|u",,-1..|
|00005370| fa 05 cb 0d 02 fb 05 e1 | 0d 02 fc 04 0d 02 fd 37 |........|.......7|
|00005380| f4 20 4f 70 65 6e 20 61 | 20 66 69 6c 65 72 20 77 |. Open a| filer w|
|00005390| 69 6e 64 6f 77 20 6f 6e | 20 74 68 65 20 64 69 72 |indow on| the dir|
|000053a0| 65 63 74 6f 72 79 20 6f | 66 20 54 72 65 65 46 69 |ectory o|f TreeFi|
|000053b0| 6c 65 24 0d 02 fe 3a f4 | 20 69 66 20 69 74 20 69 |le$...:.| if it i|
|000053c0| 6e 63 6c 75 64 65 73 20 | 6f 6e 65 20 61 6e 64 20 |ncludes |one and |
|000053d0| 74 68 65 20 41 44 4a 55 | 53 54 20 62 6f 74 74 6f |the ADJU|ST botto|
|000053e0| 6e 20 69 73 20 70 72 65 | 73 73 65 64 2e 0d 02 ff |n is pre|ssed....|
|000053f0| 04 0d 03 00 0e dd 20 f2 | 4f 70 65 6e 44 69 72 0d |...... .|OpenDir.|
|00005400| 03 01 0e ea 20 49 25 2c | 50 25 2c 44 24 0d 03 02 |.... I%,|P%,D$...|
|00005410| 2c c8 99 20 22 57 69 6d | 70 5f 47 65 74 50 6f 69 |,.. "Wim|p_GetPoi|
|00005420| 6e 74 65 72 49 6e 66 6f | 22 2c 2c 62 25 3a e7 20 |nterInfo|",,b%:. |
|00005430| 62 25 21 38 3c 3e 31 20 | e1 0d 03 03 0d 49 25 3d |b%!8<>1 |.....I%=|
|00005440| 31 3a 50 25 3d 30 0d 03 | 04 28 f5 20 49 25 3d a7 |1:P%=0..|.(. I%=.|
|00005450| 54 72 65 65 46 69 6c 65 | 24 2c 22 2e 22 2c 49 25 |TreeFile|$,".",I%|
|00005460| 2b 31 29 3a e7 20 49 25 | 20 50 25 3d 49 25 0d 03 |+1):. I%| P%=I%..|
|00005470| 05 0a fd 20 49 25 3d 30 | 0d 03 06 0c e7 20 50 25 |... I%=0|..... P%|
|00005480| 3d 30 20 e1 0d 03 07 17 | 44 24 3d c0 54 72 65 65 |=0 .....|D$=.Tree|
|00005490| 46 69 6c 65 24 2c 50 25 | 2d 31 29 0d 03 08 32 62 |File$,P%|-1)...2b|
|000054a0| 25 21 32 30 3d 30 3a 62 | 25 21 32 34 3d 30 3a f2 |%!20=0:b|%!24=0:.|
|000054b0| 53 65 6e 64 28 4f 70 65 | 6e 44 69 72 2c 44 24 2c |Send(Ope|nDir,D$,|
|000054c0| 31 37 2c 62 25 2c 30 2c | 30 2c 32 38 29 0d 03 09 |17,b%,0,|0,28)...|
|000054d0| 05 e1 0d 03 0a 04 0d 03 | 0b 13 dd 20 a4 47 65 74 |........|... .Get|
|000054e0| 56 61 72 28 56 61 72 24 | 29 0d 03 0c 0a ea 20 4c |Var(Var$|)..... L|
|000054f0| 65 6e 25 0d 03 0d 2d c8 | 99 20 22 58 4f 53 5f 52 |en%...-.|. "XOS_R|
|00005500| 65 61 64 56 61 72 56 61 | 6c 22 2c 56 61 72 24 2c |eadVarVa|l",Var$,|
|00005510| 62 25 2c 62 6c 65 6e 25 | 20 b8 2c 2c 4c 65 6e 25 |b%,blen%| .,,Len%|
|00005520| 0d 03 0e 14 62 25 3f 4c | 65 6e 25 3d 43 52 25 3a |....b%?L|en%=CR%:|
|00005530| 3d 24 62 25 0d 03 0f 04 | 0d 03 10 40 f4 20 52 65 |=$b%....|...@. Re|
|00005540| 74 75 72 6e 20 74 68 65 | 20 7a 65 72 6f 2d 74 65 |turn the| zero-te|
|00005550| 72 6d 69 6e 61 74 65 64 | 20 73 74 72 69 6e 67 20 |rminated| string |
|00005560| 61 74 20 53 25 20 61 73 | 20 61 20 42 61 73 69 63 |at S% as| a Basic|
|00005570| 20 73 74 72 69 6e 67 2e | 0d 03 11 04 0d 03 12 12 | string.|........|
|00005580| dd 20 a4 47 65 74 5a 53 | 74 72 28 53 25 29 0d 03 |. .GetZS|tr(S%)..|
|00005590| 13 0e ea 20 50 25 3a 50 | 25 3d 53 25 0d 03 14 12 |... P%:P|%=S%....|
|000055a0| c8 95 20 3f 50 25 3a 50 | 25 2b 3d 31 3a ce 0d 03 |.. ?P%:P|%+=1:...|
|000055b0| 15 0a 24 50 25 3d 22 22 | 0d 03 16 08 3d 24 53 25 |..$P%=""|....=$S%|
|000055c0| 0d 03 17 04 0d 03 18 48 | f4 20 3d 3d 3d 3d 3d 3d |.......H|. ======|
|000055d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000055e0| 3d 3d 3d 20 49 6e 69 74 | 69 61 6c 69 73 61 74 69 |=== Init|ialisati|
|000055f0| 6f 6e 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |on =====|========|
|00005600| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 03 19 04 |========|====....|
|00005610| 0d 03 1a 0b dd 20 f2 49 | 6e 69 74 0d 03 1b 0a f2 |..... .I|nit.....|
|00005620| 44 28 22 22 29 0d 03 1c | 35 49 6e 66 69 6e 69 74 |D("")...|5Infinit|
|00005630| 79 25 3d 39 39 39 39 39 | 39 20 20 20 20 20 20 20 |y%=99999|9       |
|00005640| 20 20 20 20 20 20 20 3a | f4 20 57 65 6c 6c 20 6f |       :|. Well o|
|00005650| 66 66 20 73 63 72 65 65 | 6e 2e 0d 03 1d 47 43 68 |ff scree|n....GCh|
|00005660| 61 72 57 25 3d 31 36 3a | 43 68 61 72 48 25 3d 33 |arW%=16:|CharH%=3|
|00005670| 32 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 53 |2       |    :. S|
|00005680| 79 73 74 65 6d 20 63 68 | 61 72 61 63 74 65 72 20 |ystem ch|aracter |
|00005690| 73 69 7a 65 20 69 6e 20 | 4f 53 20 75 6e 69 74 73 |size in |OS units|
|000056a0| 2e 0d 03 1e 48 4d 69 6e | 57 25 3d 36 30 30 20 20 |....HMin|W%=600  |
|000056b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000056c0| 20 20 20 3a f4 20 4d 69 | 6e 20 77 69 64 74 68 20 |   :. Mi|n width |
|000056d0| 6f 66 20 6d 61 69 6e 20 | 77 69 6e 64 6f 77 20 77 |of main |window w|
|000056e0| 6f 72 6b 20 61 72 65 61 | 2e 0d 03 1f 37 48 61 73 |ork area|....7Has|
|000056f0| 68 25 3d 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |h%=0    |        |
|00005700| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 4e 6f |        |   :. No|
|00005710| 20 68 61 73 68 20 74 61 | 62 6c 65 20 79 65 74 2e | hash ta|ble yet.|
|00005720| 0d 03 20 0f 4d 6f 64 69 | 66 69 65 64 25 3d a3 0d |.. .Modi|fied%=..|
|00005730| 03 21 36 4d 6f 64 69 66 | 69 65 64 53 68 6f 77 6e |.!6Modif|iedShown|
|00005740| 25 3d ac 20 4d 6f 64 69 | 66 69 65 64 25 20 20 3a |%=. Modi|fied%  :|
|00005750| f4 20 46 6f 72 63 65 20 | 74 69 74 6c 65 20 72 65 |. Force |title re|
|00005760| 64 72 61 77 2e 0d 03 22 | 37 4c 46 25 3d 31 30 3a |draw..."|7LF%=10:|
|00005770| 43 52 25 3d 31 33 3a 43 | 74 72 6c 43 25 3d 33 3a |CR%=13:C|trlC%=3:|
|00005780| 43 74 72 6c 45 25 3d 35 | 3a 43 74 72 6c 51 25 3d |CtrlE%=5|:CtrlQ%=|
|00005790| 31 37 3a 43 74 72 6c 53 | 25 3d 31 39 0d 03 23 25 |17:CtrlS|%=19..#%|
|000057a0| 53 70 61 63 65 25 3d 97 | 22 20 22 3a 4c 50 61 72 |Space%=.|" ":LPar|
|000057b0| 25 3d 97 22 28 22 3a 4c | 42 72 61 25 3d 97 22 5b |%=."(":L|Bra%=."[|
|000057c0| 22 0d 03 24 2a 50 72 69 | 6e 74 25 3d 26 31 38 30 |"..$*Pri|nt%=&180|
|000057d0| 3a 46 31 25 3d 26 31 38 | 31 3a 46 33 25 3d 26 31 |:F1%=&18|1:F3%=&1|
|000057e0| 38 33 3a 46 35 25 3d 26 | 31 38 35 0d 03 25 2b 54 |83:F5%=&|185..%+T|
|000057f0| 61 62 25 3d 26 31 38 41 | 3a 44 6f 77 6e 41 72 72 |ab%=&18A|:DownArr|
|00005800| 6f 77 25 3d 26 31 38 45 | 3a 55 70 41 72 72 6f 77 |ow%=&18E|:UpArrow|
|00005810| 25 3d 26 31 38 46 0d 03 | 26 10 53 68 66 54 61 62 |%=&18F..|&.ShfTab|
|00005820| 25 3d 26 31 39 41 0d 03 | 27 1c 43 52 34 24 3d bd |%=&19A..|'.CR4$=.|
|00005830| 43 52 25 2b bd 43 52 25 | 2b bd 43 52 25 2b bd 43 |CR%+.CR%|+.CR%+.C|
|00005840| 52 25 0d 03 28 04 0d 03 | 29 1f f4 20 50 61 6c 65 |R%..(...|).. Pale|
|00005850| 74 74 65 20 65 6e 74 72 | 69 65 73 20 26 42 42 47 |tte entr|ies &BBG|
|00005860| 47 52 52 30 30 0d 03 2a | 3c 42 6c 61 63 6b 25 3d |GRR00..*|<Black%=|
|00005870| 30 3a 57 68 69 74 65 25 | 3d 26 46 46 46 46 46 46 |0:White%|=&FFFFFF|
|00005880| 30 30 20 20 20 20 20 3a | f4 20 66 6f 72 65 67 72 |00     :|. foregr|
|00005890| 6f 75 6e 64 2c 20 62 61 | 63 6b 67 72 6f 75 6e 64 |ound, ba|ckground|
|000058a0| 2e 0d 03 2b 33 52 65 64 | 25 3d 26 30 30 30 30 46 |...+3Red|%=&0000F|
|000058b0| 46 30 30 3a 47 72 65 65 | 6e 25 3d 26 30 30 46 46 |F00:Gree|n%=&00FF|
|000058c0| 30 30 30 30 3a 42 6c 75 | 65 25 3d 26 46 46 30 30 |0000:Blu|e%=&FF00|
|000058d0| 30 30 30 30 0d 03 2c 04 | 0d 03 2d 3f c8 99 20 22 |0000..,.|..-?.. "|
|000058e0| 4f 53 5f 53 57 49 4e 75 | 6d 62 65 72 46 72 6f 6d |OS_SWINu|mberFrom|
|000058f0| 53 74 72 69 6e 67 22 2c | 30 2c 22 4f 53 5f 53 57 |String",|0,"OS_SW|
|00005900| 49 4e 75 6d 62 65 72 46 | 72 6f 6d 53 74 72 69 6e |INumberF|romStrin|
|00005910| 67 22 20 b8 20 53 25 0d | 03 2e 28 c8 99 20 53 25 |g" . S%.|..(.. S%|
|00005920| 2c 30 2c 22 57 69 6d 70 | 5f 46 6f 72 63 65 52 65 |,0,"Wimp|_ForceRe|
|00005930| 64 72 61 77 22 20 b8 20 | 46 72 63 52 65 64 25 0d |draw" . |FrcRed%.|
|00005940| 03 2f 1f c8 99 20 53 25 | 2c 30 2c 22 57 69 6d 70 |./... S%|,0,"Wimp|
|00005950| 5f 50 6f 6c 6c 22 20 b8 | 20 50 6f 6c 6c 25 0d 03 |_Poll" .| Poll%..|
|00005960| 30 29 c8 99 20 53 25 2c | 30 2c 22 57 69 6d 70 5f |0).. S%,|0,"Wimp_|
|00005970| 55 70 64 61 74 65 57 69 | 6e 64 6f 77 22 20 b8 20 |UpdateWi|ndow" . |
|00005980| 55 70 64 57 69 6e 25 0d | 03 31 29 c8 99 20 53 25 |UpdWin%.|.1).. S%|
|00005990| 2c 30 2c 22 57 69 6d 70 | 5f 47 65 74 52 65 63 74 |,0,"Wimp|_GetRect|
|000059a0| 61 6e 67 6c 65 22 20 b8 | 20 47 65 74 52 65 63 25 |angle" .| GetRec%|
|000059b0| 0d 03 32 2b c8 99 20 53 | 25 2c 30 2c 22 57 69 6d |..2+.. S|%,0,"Wim|
|000059c0| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|000059d0| 22 20 b8 20 47 65 74 57 | 69 6e 25 0d 03 33 2d c8 |" . GetW|in%..3-.|
|000059e0| 99 20 53 25 2c 30 2c 22 | 46 6f 6e 74 5f 53 74 72 |. S%,0,"|Font_Str|
|000059f0| 69 6e 67 57 69 64 74 68 | 22 20 b8 20 53 74 72 69 |ingWidth|" . Stri|
|00005a00| 6e 67 57 69 64 74 68 25 | 0d 03 34 21 c8 99 20 53 |ngWidth%|..4!.. S|
|00005a10| 25 2c 30 2c 22 46 6f 6e | 74 5f 50 61 69 6e 74 22 |%,0,"Fon|t_Paint"|
|00005a20| 20 b8 20 50 61 69 6e 74 | 25 0d 03 35 04 0d 03 36 | . Paint|%..5...6|
|00005a30| 13 f4 20 57 49 4d 50 20 | 4d 65 73 73 61 67 65 73 |.. WIMP |Messages|
|00005a40| 0d 03 37 04 0d 03 38 0a | 51 75 69 74 3d 30 0d 03 |..7...8.|Quit=0..|
|00005a50| 39 40 44 61 74 61 53 61 | 76 65 3d 31 3a 44 61 74 |9@DataSa|ve=1:Dat|
|00005a60| 61 53 61 76 65 41 63 6b | 3d 32 3a 44 61 74 61 4c |aSaveAck|=2:DataL|
|00005a70| 6f 61 64 3d 33 3a 44 61 | 74 61 4c 6f 61 64 41 63 |oad=3:Da|taLoadAc|
|00005a80| 6b 3d 34 3a 44 61 74 61 | 4f 70 65 6e 3d 35 0d 03 |k=4:Data|Open=5..|
|00005a90| 3a 3a 50 72 65 51 75 69 | 74 3d 38 3a 4f 70 65 6e |::PreQui|t=8:Open|
|00005aa0| 44 69 72 3d 26 34 30 30 | 3a 48 65 6c 70 52 65 71 |Dir=&400|:HelpReq|
|00005ab0| 75 65 73 74 3d 26 35 30 | 32 3a 48 65 6c 70 52 65 |uest=&50|2:HelpRe|
|00005ac0| 70 6c 79 3d 26 35 30 33 | 0d 03 3b 04 0d 03 3c 1c |ply=&503|..;...<.|
|00005ad0| f4 20 45 78 74 65 72 6e | 61 6c 20 65 64 69 74 20 |. Extern|al edit |
|00005ae0| 6d 65 73 73 61 67 65 73 | 0d 03 3d 32 45 64 69 74 |messages|..=2Edit|
|00005af0| 52 71 3d 26 34 35 44 38 | 30 3a 45 64 69 74 41 63 |Rq=&45D8|0:EditAc|
|00005b00| 6b 3d 26 34 35 44 38 31 | 3a 45 64 69 74 52 65 74 |k=&45D81|:EditRet|
|00005b10| 75 72 6e 3d 26 34 35 44 | 38 32 0d 03 3e 28 45 64 |urn=&45D|82..>(Ed|
|00005b20| 69 74 41 62 6f 72 74 3d | 26 34 35 44 38 33 3a 45 |itAbort=|&45D83:E|
|00005b30| 64 69 74 44 61 74 61 53 | 61 76 65 3d 26 34 35 44 |ditDataS|ave=&45D|
|00005b40| 38 34 0d 03 3f 0f 45 78 | 74 45 64 4a 6f 62 25 3d |84..?.Ex|tEdJob%=|
|00005b50| 30 0d 03 40 04 0d 03 41 | 1b 62 6c 65 6e 25 3d 32 |0..@...A|.blen%=2|
|00005b60| 30 34 38 3a 6d 65 73 73 | 6c 65 6e 25 3d 34 30 30 |048:mess|len%=400|
|00005b70| 0d 03 42 34 de 20 62 25 | 20 62 6c 65 6e 25 3a de |..B4. b%| blen%:.|
|00005b80| 20 69 6e 64 25 20 32 36 | 30 30 2c 69 6e 64 65 6e | ind% 26|00,inden|
|00005b90| 64 25 20 2d 31 2c 6d 65 | 73 73 25 20 6d 65 73 73 |d% -1,me|ss% mess|
|00005ba0| 6c 65 6e 25 0d 03 43 39 | 24 62 25 3d 22 54 41 53 |len%..C9|$b%="TAS|
|00005bb0| 4b 22 3a c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |K":.. "W|imp_Init|
|00005bc0| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 21 62 25 2c |ialise",|200,!b%,|
|00005bd0| 54 61 73 6b 24 20 b8 2c | 54 61 73 6b 25 0d 03 44 |Task$ .,|Task%..D|
|00005be0| 04 0d 03 45 1a f4 20 46 | 69 6c 65 73 20 61 6e 64 |...E.. F|iles and|
|00005bf0| 20 66 69 6c 65 74 79 70 | 65 73 2e 0d 03 46 04 0d | filetyp|es...F..|
|00005c00| 03 47 2e c8 99 20 22 4f | 53 5f 46 53 43 6f 6e 74 |.G... "O|S_FSCont|
|00005c10| 72 6f 6c 22 2c 33 31 2c | 22 47 45 44 43 4f 4d 22 |rol",31,|"GEDCOM"|
|00005c20| 20 b8 2c 2c 54 72 65 65 | 54 79 70 65 25 0d 03 48 | .,,Tree|Type%..H|
|00005c30| 2c c8 99 20 22 4f 53 5f | 46 53 43 6f 6e 74 72 6f |,.. "OS_|FSContro|
|00005c40| 6c 22 2c 33 31 2c 22 54 | 65 78 74 22 20 b8 2c 2c |l",31,"T|ext" .,,|
|00005c50| 54 65 78 74 54 79 70 65 | 25 0d 03 49 22 52 65 70 |TextType|%..I"Rep|
|00005c60| 6f 72 74 54 79 70 65 25 | 3d 54 65 78 74 54 79 70 |ortType%|=TextTyp|
|00005c70| 65 25 20 84 20 26 31 30 | 30 30 30 0d 03 4a 0f 53 |e% . &10|000..J.S|
|00005c80| 61 76 65 54 79 70 65 25 | 3d 30 0d 03 4b 14 54 72 |aveType%|=0..K.Tr|
|00005c90| 65 65 4c 65 61 66 24 3d | 22 54 72 65 65 22 0d 03 |eeLeaf$=|"Tree"..|
|00005ca0| 4c 15 4e 6f 74 65 4c 65 | 61 66 24 3d 22 4e 6f 74 |L.NoteLe|af$="Not|
|00005cb0| 65 73 22 0d 03 4d 34 4e | 6f 74 65 46 69 6c 65 24 |es"..M4N|oteFile$|
|00005cc0| 3d a4 47 65 74 56 61 72 | 28 22 57 69 6d 70 24 53 |=.GetVar|("Wimp$S|
|00005cd0| 63 72 61 70 44 69 72 22 | 29 2b 22 2e 22 2b 4e 6f |crapDir"|)+"."+No|
|00005ce0| 74 65 4c 65 61 66 24 0d | 03 4e 18 52 65 70 6f 72 |teLeaf$.|.N.Repor|
|00005cf0| 74 4c 65 61 66 24 3d 22 | 52 65 70 6f 72 74 22 0d |tLeaf$="|Report".|
|00005d00| 03 4f 19 53 63 72 61 70 | 24 3d 22 3c 57 69 6d 70 |.O.Scrap|$="<Wimp|
|00005d10| 24 53 63 72 61 70 3e 22 | 0d 03 50 23 4f 70 74 46 |$Scrap>"|..P#OptF|
|00005d20| 69 6c 65 24 3d 22 3c 46 | 61 6d 69 6c 79 24 44 69 |ile$="<F|amily$Di|
|00005d30| 72 3e 2e 43 68 6f 69 63 | 65 73 22 0d 03 51 0d f2 |r>.Choic|es"..Q..|
|00005d40| 4c 6f 61 64 4f 70 74 73 | 0d 03 52 04 0d 03 53 3a |LoadOpts|..R...S:|
|00005d50| f4 20 4c 6f 61 64 20 73 | 70 72 69 74 65 73 20 69 |. Load s|prites i|
|00005d60| 6e 74 6f 20 75 73 65 72 | 20 73 70 72 69 74 65 20 |nto user| sprite |
|00005d70| 61 72 65 61 20 75 73 65 | 64 20 62 79 20 46 4e 47 |area use|d by FNG|
|00005d80| 65 74 54 65 6d 2e 0d 03 | 54 17 f4 20 4c 4f 43 41 |etTem...|T.. LOCA|
|00005d90| 4c 20 53 70 72 69 74 65 | 46 69 6c 65 24 0d 03 55 |L Sprite|File$..U|
|00005da0| 28 f4 20 53 70 72 69 74 | 65 46 69 6c 65 24 3d 22 |(. Sprit|eFile$="|
|00005db0| 3c 46 61 6d 69 6c 79 24 | 44 69 72 3e 2e 53 70 72 |<Family$|Dir>.Spr|
|00005dc0| 69 74 65 73 22 0d 03 56 | 47 f4 20 4c 65 6e 25 3d |ites"..V|G. Len%=|
|00005dd0| 46 4e 46 69 6c 65 4c 65 | 6e 28 53 70 72 69 74 65 |FNFileLe|n(Sprite|
|00005de0| 46 69 6c 65 24 29 2b 34 | 20 3a 52 45 4d 20 41 64 |File$)+4| :REM Ad|
|00005df0| 64 20 72 6f 6f 6d 20 66 | 6f 72 20 73 70 72 69 74 |d room f|or sprit|
|00005e00| 65 20 61 72 65 61 20 73 | 69 7a 65 2e 0d 03 57 17 |e area s|ize...W.|
|00005e10| f4 20 44 49 4d 20 53 70 | 72 69 74 65 73 25 20 4c |. DIM Sp|rites% L|
|00005e20| 65 6e 25 0d 03 58 23 f4 | 20 53 70 72 69 74 65 73 |en%..X#.| Sprites|
|00005e30| 25 21 30 3d 4c 65 6e 25 | 3a 53 70 72 69 74 65 73 |%!0=Len%|:Sprites|
|00005e40| 25 21 38 3d 31 36 0d 03 | 59 43 f4 20 53 59 53 20 |%!8=16..|YC. SYS |
|00005e50| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 32 35 |"OS_Spri|teOp",25|
|00005e60| 36 2b 39 2c 53 70 72 69 | 74 65 73 25 20 20 20 20 |6+9,Spri|tes%    |
|00005e70| 20 20 20 20 20 20 20 20 | 20 20 3a 52 45 4d 20 49 |        |  :REM I|
|00005e80| 6e 69 74 20 61 72 65 61 | 2e 0d 03 5a 3e f4 20 53 |nit area|...Z>. S|
|00005e90| 59 53 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |YS "OS_S|priteOp"|
|00005ea0| 2c 32 35 36 2b 31 30 2c | 53 70 72 69 74 65 73 25 |,256+10,|Sprites%|
|00005eb0| 2c 53 70 72 69 74 65 46 | 69 6c 65 24 20 3a 52 45 |,SpriteF|ile$ :RE|
|00005ec0| 4d 20 4c 6f 61 64 2e 0d | 03 5b 04 0d 03 5c 14 f4 |M Load..|.[...\..|
|00005ed0| 20 43 72 65 61 74 65 20 | 77 69 6e 64 6f 77 73 0d | Create |windows.|
|00005ee0| 03 5d 04 0d 03 5e 34 c8 | 99 20 22 57 69 6d 70 5f |.]...^4.|. "Wimp_|
|00005ef0| 4f 70 65 6e 54 65 6d 70 | 6c 61 74 65 22 2c 2c 22 |OpenTemp|late",,"|
|00005f00| 3c 46 61 6d 69 6c 79 24 | 44 69 72 3e 2e 54 65 6d |<Family$|Dir>.Tem|
|00005f10| 70 6c 61 74 65 73 22 0d | 03 5f 1b 43 6f 6d 70 57 |plates".|._.CompW|
|00005f20| 48 25 3d a4 47 65 74 54 | 65 6d 28 22 43 6f 6d 70 |H%=.GetT|em("Comp|
|00005f30| 22 29 0d 03 60 1b 45 64 | 69 74 57 48 25 3d a4 47 |")..`.Ed|itWH%=.G|
|00005f40| 65 74 54 65 6d 28 22 45 | 64 69 74 22 29 0d 03 61 |etTem("E|dit")..a|
|00005f50| 43 45 64 49 63 4e 61 6d | 65 25 3d 30 3a 45 64 49 |CEdIcNam|e%=0:EdI|
|00005f60| 63 42 6f 72 6e 25 3d 31 | 3a 45 64 49 63 44 69 65 |cBorn%=1|:EdIcDie|
|00005f70| 64 25 3d 32 3a 45 64 49 | 63 46 61 74 68 65 72 25 |d%=2:EdI|cFather%|
|00005f80| 3d 33 3a 45 64 49 63 4d | 6f 74 68 65 72 25 3d 34 |=3:EdIcM|other%=4|
|00005f90| 0d 03 62 32 45 64 49 63 | 4d 61 6c 65 25 3d 35 3a |..b2EdIc|Male%=5:|
|00005fa0| 45 64 49 63 46 65 6d 61 | 6c 65 25 3d 36 3a 45 64 |EdIcFema|le%=6:Ed|
|00005fb0| 49 63 43 61 6e 25 3d 37 | 3a 45 64 49 63 4f 4b 25 |IcCan%=7|:EdIcOK%|
|00005fc0| 3d 38 0d 03 63 47 47 6f | 74 6f 57 48 25 3d a4 47 |=8..cGGo|toWH%=.G|
|00005fd0| 65 74 54 65 6d 28 22 47 | 6f 74 6f 22 29 3a 47 6f |etTem("G|oto"):Go|
|00005fe0| 49 63 4e 61 6d 65 25 3d | 30 3a 47 6f 49 63 43 61 |IcName%=|0:GoIcCa|
|00005ff0| 6e 25 3d 31 3a 47 6f 49 | 63 43 75 72 25 3d 32 3a |n%=1:GoI|cCur%=2:|
|00006000| 47 6f 49 63 4f 4b 25 3d | 33 0d 03 64 40 24 28 62 |GoIcOK%=|3..d@$(b|
|00006010| 25 2b 34 2b 37 32 29 3d | a4 4d 54 28 22 4d 54 22 |%+4+72)=|.MT("MT"|
|00006020| 29 3a c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |):.. "Wi|mp_Creat|
|00006030| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 25 2b 34 20 b8 |eWindow"|,,b%+4 .|
|00006040| 20 4d 61 72 72 79 57 48 | 25 0d 03 65 1b 49 6e 66 | MarryWH|%..e.Inf|
|00006050| 6f 57 48 25 3d a4 47 65 | 74 54 65 6d 28 22 49 6e |oWH%=.Ge|tTem("In|
|00006060| 66 6f 22 29 0d 03 66 17 | 24 62 25 21 28 34 2b 38 |fo")..f.|$b%!(4+8|
|00006070| 38 2b 32 30 29 3d 54 61 | 73 6b 24 0d 03 67 1d 24 |8+20)=Ta|sk$..g.$|
|00006080| 62 25 21 28 34 2b 38 38 | 2b 33 32 2b 32 30 29 3d |b%!(4+88|+32+20)=|
|00006090| 50 75 72 70 6f 73 65 24 | 0d 03 68 1c 24 62 25 21 |Purpose$|..h.$b%!|
|000060a0| 28 34 2b 38 38 2b 36 34 | 2b 32 30 29 3d 41 75 74 |(4+88+64|+20)=Aut|
|000060b0| 68 6f 72 24 0d 03 69 1d | 24 62 25 21 28 34 2b 38 |hor$..i.|$b%!(4+8|
|000060c0| 38 2b 39 36 2b 32 30 29 | 3d 56 65 72 73 69 6f 6e |8+96+20)|=Version|
|000060d0| 24 0d 03 6a 1b 4d 61 69 | 6e 57 48 25 3d a4 47 65 |$..j.Mai|nWH%=.Ge|
|000060e0| 74 54 65 6d 28 22 4d 61 | 69 6e 22 29 0d 03 6b 3e |tTem("Ma|in")..k>|
|000060f0| 4d 6f 64 73 57 48 25 3d | a4 47 65 74 54 65 6d 28 |ModsWH%=|.GetTem(|
|00006100| 22 4d 6f 64 73 22 29 3a | 4d 6f 49 63 44 69 73 63 |"Mods"):|MoIcDisc|
|00006110| 25 3d 30 3a 4d 6f 49 63 | 43 61 6e 25 3d 31 3a 4d |%=0:MoIc|Can%=1:M|
|00006120| 6f 49 63 53 61 76 65 25 | 3d 32 0d 03 6c 2c 4e 6f |oIcSave%|=2..l,No|
|00006130| 74 65 57 48 25 3d a4 47 | 65 74 54 65 6d 28 22 4e |teWH%=.G|etTem("N|
|00006140| 6f 74 65 22 29 3a 4e 6f | 74 65 54 69 74 6c 65 25 |ote"):No|teTitle%|
|00006150| 3d 62 25 21 37 36 0d 03 | 6d 1b 53 61 76 65 57 48 |=b%!76..|m.SaveWH|
|00006160| 25 3d a4 47 65 74 54 65 | 6d 28 22 53 61 76 65 22 |%=.GetTe|m("Save"|
|00006170| 29 0d 03 6e 32 53 61 49 | 63 46 69 6c 65 25 3d 30 |)..n2SaI|cFile%=0|
|00006180| 3a 53 61 49 63 53 70 72 | 69 74 65 25 3d 31 3a 53 |:SaIcSpr|ite%=1:S|
|00006190| 61 49 63 4f 4b 25 3d 32 | 3a 53 61 49 63 43 61 6e |aIcOK%=2|:SaIcCan|
|000061a0| 25 3d 33 0d 03 6f 1b 52 | 65 70 6f 57 48 25 3d a4 |%=3..o.R|epoWH%=.|
|000061b0| 47 65 74 54 65 6d 28 22 | 52 65 70 6f 22 29 0d 03 |GetTem("|Repo")..|
|000061c0| 70 1b c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |p... "Wi|mp_Close|
|000061d0| 54 65 6d 70 6c 61 74 65 | 22 0d 03 71 12 f2 4f 70 |Template|"..q..Op|
|000061e0| 65 6e 28 4d 61 69 6e 57 | 48 25 29 0d 03 72 2e 4f |en(MainW|H%)..r.O|
|000061f0| 62 45 64 57 48 25 3d 30 | 20 20 20 20 20 20 20 20 |bEdWH%=0|        |
|00006200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |        |     :. |
|00006210| 4e 6f 6e 65 20 79 65 74 | 2e 0d 03 73 04 0d 03 74 |None yet|...s...t|
|00006220| 22 de 20 42 61 72 49 63 | 54 65 78 74 25 20 31 30 |". BarIc|Text% 10|
|00006230| 2c 42 61 72 49 63 56 61 | 6c 69 64 25 20 32 30 0d |,BarIcVa|lid% 20.|
|00006240| 03 75 19 62 25 21 30 3d | 2d 31 3a 62 25 21 34 3d |.u.b%!0=|-1:b%!4=|
|00006250| 30 3a 62 25 21 38 3d 30 | 0d 03 76 25 62 25 21 31 |0:b%!8=0|..v%b%!1|
|00006260| 32 3d 36 38 3a 62 25 21 | 31 36 3d 36 38 3a 62 25 |2=68:b%!|16=68:b%|
|00006270| 21 32 30 3d 26 31 37 30 | 30 33 31 30 42 0d 03 77 |!20=&170|0310B..w|
|00006280| 2f 62 25 21 32 34 3d 42 | 61 72 49 63 54 65 78 74 |/b%!24=B|arIcText|
|00006290| 25 3a 62 25 21 32 38 3d | 42 61 72 49 63 56 61 6c |%:b%!28=|BarIcVal|
|000062a0| 69 64 25 3a 62 25 21 33 | 32 3d 31 30 0d 03 78 12 |id%:b%!3|2=10..x.|
|000062b0| 24 42 61 72 49 63 54 65 | 78 74 25 3d 22 22 0d 03 |$BarIcTe|xt%=""..|
|000062c0| 79 1e 24 42 61 72 49 63 | 56 61 6c 69 64 25 3d 22 |y.$BarIc|Valid%="|
|000062d0| 53 21 22 2b 54 61 73 6b | 24 2b bd 30 0d 03 7a 25 |S!"+Task|$+.0..z%|
|000062e0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|000062f0| 63 6f 6e 22 2c 2c 62 25 | 20 b8 20 42 61 72 49 63 |con",,b%| . BarIc|
|00006300| 25 0d 03 7b 04 0d 03 7c | 15 de 20 43 6f 6d 70 25 |%..{...||.. Comp%|
|00006310| 28 4d 61 78 43 6f 6d 70 | 25 29 0d 03 7d 04 0d 03 |(MaxComp|%)..}...|
|00006320| 7e 1a f4 20 44 61 74 61 | 62 61 73 65 20 73 74 72 |~.. Data|base str|
|00006330| 75 63 74 75 72 65 73 2e | 0d 03 7f 04 0d 03 80 35 |uctures.|.......5|
|00006340| 4f 62 54 61 67 25 3d 30 | 3a 4f 62 56 61 6c 25 3d |ObTag%=0|:ObVal%=|
|00006350| 34 3a 4f 62 53 75 62 73 | 25 3d 38 3a 4f 62 4e 65 |4:ObSubs|%=8:ObNe|
|00006360| 78 74 25 3d 31 32 3a 4f | 62 53 69 7a 65 25 3d 31 |xt%=12:O|bSize%=1|
|00006370| 36 0d 03 81 20 49 64 4e | 65 78 74 25 3d 30 3a 49 |6... IdN|ext%=0:I|
|00006380| 64 4f 62 6a 25 3d 34 3a | 49 64 4e 61 6d 65 25 3d |dObj%=4:|IdName%=|
|00006390| 38 0d 03 82 45 52 65 66 | 54 61 67 25 3d 31 3c 3c |8...ERef|Tag%=1<<|
|000063a0| 37 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |7       |        |
|000063b0| 20 20 20 3a f4 20 30 3d | 3e 73 74 72 69 6e 67 2c |   :. 0=|>string,|
|000063c0| 20 31 3d 3e 63 72 6f 73 | 73 2d 72 65 66 20 70 6f | 1=>cros|s-ref po|
|000063d0| 69 6e 74 65 72 2e 0d 03 | 83 38 44 65 61 64 25 3d |inter...|.8Dead%=|
|000063e0| 31 3c 3c 31 35 20 20 20 | 20 20 20 20 20 20 20 20 |1<<15   |        |
|000063f0| 20 20 20 20 20 20 20 20 | 3a f4 20 50 52 4f 43 4d |        |:. PROCM|
+--------+-------------------------+-------------------------+--------+--------+